Cleanup LabelDoubleTree -> LDTree

2025-06-27 08:55:00 +01:00
parent 73c708a325
commit dd5a747559
11 changed files with 101 additions and 218 deletions
@@ -15,7 +15,7 @@ import Dodge.Item.Draw.SPic
 import Dodge.Item.HeldOffset
 import ShapePicture

-itemEquipPict :: Creature -> LabelDoubleTree ItemLink CItem -> SPic
+itemEquipPict :: Creature -> LDTree ItemLink CItem -> SPic
 itemEquipPict cr itmtree
    | Just i <- itm ^? itLocation . ilInvID
    , Just esite <- cr ^? crInv . ix i . itLocation . ilEquipSite . _Just