Cleanup, prepare ground to allow for drawing attached items

2024-09-30 15:09:21 +01:00
parent 18219d0bff
commit fd8adcea92
11 changed files with 245 additions and 273 deletions
@@ -26,7 +26,7 @@ import ShapePicture
 --    hit <- itm ^? itType . iyBase . ibtHeld
 --    return mempty

-itemSPic :: LabelDoubleTree ComposeLinkType PartiallyComposedItem -> SPic
+itemSPic :: LabelDoubleTree ComposeLinkType (PartiallyComposedItem ComposeLinkType) -> SPic
 itemSPic itmtree = case it ^. itType of
    CRAFT _ -> defSPic
    HELD ht -> heldItemSPic ht it