Start moving creature properties out of records

src/Dodge/Prop/Gib.hs

@@ -2,6 +2,7 @@ module Dodge.Prop.Gib (
     addCrGibs,
 ) where
 
+import Dodge.Creature.Shape
 import Color
 import Control.Monad
 import Data.Foldable
@@ -42,7 +43,7 @@ addCrGibs cr = case damageDirection $ _csDamage $ _crState cr of
             . addGibsAtDir d 13 20 (_skinUpper skin) cpos
             . addGibAtDir d 25 (_skinHead skin) cpos
   where
-    skin = _crType cr -- this should be cleaned up
+    skin = crShape $ _crType cr -- this should be cleaned up
     cpos = _crPos cr
 
 addGibsAt :: Float -> Float -> Color -> Point2 -> World -> World