Remove ComposedItem, to be replaced with PartiallyComposedItem

src/Dodge/Item/Draw.hs

@@ -14,7 +14,7 @@ import Dodge.Item.Draw.SPic
 import Dodge.Item.HeldOffset
 import ShapePicture
 
-itemEquipPict :: Creature -> LabelDoubleTree ItemLink ComposedItem -> SPic
+itemEquipPict :: Creature -> LabelDoubleTree ItemLink PartiallyComposedItem -> SPic
 itemEquipPict cr itmtree = case itm ^. itUse of
     UseHeld{} | itm ^? itLocation . ilIsRoot == Just True 
             && itm ^? itLocation . ilInvID == cr ^? crManipulation . manObject . imRootSelectedItem
@@ -25,7 +25,7 @@ itemEquipPict cr itmtree = case itm ^. itUse of
         epos <- cr ^? crInvEquipped . ix i
         return $ equipPosition epos cr attachpos (itemSPic itm)
   where
-    itm = itmtree ^. ldtValue . cItem
+    itm = itmtree ^. ldtValue . _1
 
 equipPosition :: EquipPosition -> Creature -> Point3 -> SPic -> SPic
 equipPosition epos cr p sh = case epos of