Allow for assigning attach items orientations

2024-09-30 16:09:56 +01:00
parent fd8adcea92
commit d8d3a01f06
10 changed files with 143 additions and 69 deletions
@@ -26,7 +26,7 @@ import ShapePicture
 --    hit <- itm ^? itType . iyBase . ibtHeld
 --    return mempty

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