Remove creature records

src/Dodge/Corpse/Make.hs

@@ -1,5 +1,6 @@
 module Dodge.Corpse.Make (makeCorpse) where
 
+import Dodge.Creature.Radius
 import Dodge.Creature.Shape
 import Control.Lens
 import Dodge.Creature.Picture
@@ -28,7 +29,7 @@ makeDefaultCorpse cr =
                 )
   where
     cskin = crShape $ _crType cr -- this should be fixed
-    crsize = 0.1 * _crRad cr
+    crsize = 0.1 * crRad (cr ^. crType)
     rotmdir = rotateSH (_crMvDir cr - _crDir cr)
 
 defaultCorpse :: Corpse