Remove (by commenting out) module item-type system

src/Dodge/Item/Draw.hs

@@ -5,6 +5,8 @@ module Dodge.Item.Draw (
     heldItemOffset,
 ) where
 
+import Dodge.Data.ComposedItem
+import Dodge.Data.DoubleTree
 import Geometry.Data
 import Control.Lens
 import Data.Maybe
@@ -14,15 +16,17 @@ import Dodge.Item.Draw.SPic
 import Dodge.Item.HeldOffset
 import ShapePicture
 
-itemEquipPict :: Creature -> Item -> SPic
-itemEquipPict cr it = case it ^. itUse of
-    HeldUse{} | it ^? itLocation . ilIsRoot == Just True 
-        -> overPosSP (heldItemOffset it cr) (itemSPic it)
+itemEquipPict :: Creature -> LabelDoubleTree ComposeLinkType PartiallyComposedItem -> SPic
+itemEquipPict cr itmtree = case itm ^. itUse of
+    HeldUse{} | itm ^? itLocation . ilIsRoot == Just True 
+        -> overPosSP (heldItemOffset itm cr) (itemSPic itmtree)
     ituse -> fromMaybe mempty $ do
         attachpos <- ituse ^? equipEffect . eeAttachPos
-        i <- it ^? itLocation . ilInvID
+        i <- itm ^? itLocation . ilInvID
         epos <- cr ^? crInvEquipped . ix i
-        return $ equipPosition epos cr attachpos (itemSPic it)
+        return $ equipPosition epos cr attachpos (itemSPic itmtree)
+  where
+    itm = itmtree ^. ldtValue . _1
 
 equipPosition :: EquipPosition -> Creature -> Point3 -> SPic -> SPic
 equipPosition epos cr p sh = case epos of