Remove targeting bugs

src/Dodge/Item/Equipment.hs

@@ -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 =

src/Dodge/Item/Held/Rod.hs

@@ -72,7 +72,7 @@ sniperRifle =
         & itUse . heldAim . aimZoom .~ defaultItZoom{_izMax = 0.5, _izMin = 0.5}
         & itUse . heldScroll .~ HeldScrollZoom -- zoomLongGun
         & itScope .~ ZoomScope (V2 0 0) 0 1 0.5 False
-        & itUse . useTargeting .~ (Just TargetLaser)
+        & itUse . useTargeting ?~ TargetLaser
         & itUse . heldAim . aimZoom .~ defaultItZoom{_izFac = 1}
 
 machineGun :: Item

src/Dodge/Item/Held/Utility.hs

@@ -43,7 +43,7 @@ torch =
 forceFieldGun :: Item
 forceFieldGun =
     defaultWeapon
-        & itUse . useTargeting .~ Just TargetRBLine
+        & itUse . useTargeting ?~ TargetRBLine
         & itParams .~ ParamMID Nothing
         & itUse . heldUse .~ HeldForceField --useForceFieldGun
         & itUse . heldDelay .~ NoDelay