Continue to work on targeting inventory items

2023-05-20 00:34:23 +01:00
parent 6053bb059b
commit 938809a3a1
3 changed files with 10 additions and 2 deletions
@@ -111,7 +111,7 @@ targetingHat tt =
    defaultEquipment
        & itUse . equipEffect . eeSite .~ GoesOnHead
        & itType . iyBase .~ EQUIP (TARGETINGHAT tt)
--        & itUse . useTargeting ?~ tt
+        & itUse . equipTargeting ?~ tt

 headLamp :: Item
 headLamp =