Continue to refactor body/equipment positionings

src/Dodge/Corpse/Make.hs

@@ -9,10 +9,9 @@ import Dodge.Data.Creature
 import Geometry
 import Shape
 import ShapePicture
-import qualified Data.IntMap.Strict as IM
 
-makeCorpse :: IM.IntMap Item -> Creature -> Corpse
-makeCorpse m cr =
+makeCorpse :: Creature -> Corpse
+makeCorpse cr =
     defaultCorpse
         & cpPos .~ _crPos cr
         & cpDir .~ _crDir cr
@@ -20,8 +19,8 @@ makeCorpse m cr =
             .~ noPic
                 ( scaleSH (V3 crsize crsize crsize) $
                     mconcat
-                        [ colorSH (_skinHead cskin) $ deadScalp m cr
-                        , colorSH (_skinUpper cskin) $ deadUpperBody m cr
+                        [ colorSH (_skinHead cskin) $ deadScalp cr
+                        , colorSH (_skinUpper cskin) $ deadUpperBody cr
                         , rotmdir $ colorSH (_skinLower cskin) $ deadFeet cr
                         ]
                 )