Remove targeting bugs

2023-01-06 12:17:34 +00:00
parent b05f86d130
commit 5b9e0c39b5
10 changed files with 49 additions and 51 deletions
@@ -92,7 +92,7 @@ targetingHat tt =
    defaultEquipment
        & itUse . equipEffect . eeSite .~ GoesOnHead
        & itType . iyBase .~ EQUIP (TARGETINGHAT tt)
-        & itUse . useTargeting .~ (Just tt)
+        & itUse . useTargeting ?~ tt

 headLamp :: Item
 headLamp =