Major item refactor, still broken

src/Dodge/Corpse/Make.hs

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