Move towards unifying some orientation code

2025-07-05 18:35:18 +01:00
parent 07c6298743
commit 164499fe4e
8 changed files with 57 additions and 53 deletions
@@ -15,7 +15,7 @@ import Dodge.Item.Draw.SPic
 import Dodge.Item.HeldOffset
 import ShapePicture

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