Cleanup

2024-12-19 23:40:04 +00:00
parent f3cfe8cb5f
commit e1989eaa1e
28 changed files with 285 additions and 300 deletions
@@ -210,9 +210,9 @@ aimStanceInfo as = case as of
    OneHand -> "It is held in one hand."

 itmEquipSiteInfo :: Item -> String
-itmEquipSiteInfo = maybe "" equipSiteInfo . (^? itUse . uequipEffect . eeSite)
+itmEquipSiteInfo = maybe "" equipSiteInfo . (^? itUse . uequipEffect . eeType)

-equipSiteInfo :: EquipSite -> String
+equipSiteInfo :: EquipType -> String
 equipSiteInfo es = case es of
    GoesOnHead -> " on the head"
    GoesOnChest -> " on the chest"