Complete PartiallyComposedItem -> ComposedItem

2024-11-29 10:43:08 +00:00
parent 7148051b31
commit 1b99b73f44
10 changed files with 38 additions and 48 deletions
@@ -14,7 +14,7 @@ import Dodge.Item.Draw.SPic
 import Dodge.Item.HeldOffset
 import ShapePicture

-itemEquipPict :: Creature -> LabelDoubleTree ItemLink PartiallyComposedItem -> SPic
+itemEquipPict :: Creature -> LabelDoubleTree ItemLink ComposedItem -> SPic
 itemEquipPict cr itmtree = case itm ^. itUse of
    UseHeld{} | itm ^? itLocation . ilIsRoot == Just True 
            && itm ^? itLocation . ilInvID == cr ^? crManipulation . manObject . imRootSelectedItem