Cleanup invLDT

2024-10-01 13:28:25 +01:00
parent ea353f8bcc
commit 36238669f5
4 changed files with 58 additions and 60 deletions
@@ -16,8 +16,7 @@ import Dodge.Item.Draw.SPic
 import Dodge.Item.HeldOffset
 import ShapePicture

-itemEquipPict :: Creature -> LabelDoubleTree ItemLink ComposedItem
-    -> SPic
+itemEquipPict :: Creature -> LabelDoubleTree ItemLink ComposedItem -> SPic
 itemEquipPict cr itmtree = case itm ^. itUse of
    UseHeld{} | itm ^? itLocation . ilIsRoot == Just True 
        -> overPosSP (heldItemOffset itm cr) (itemTreeSPic itmtree)