Allow equipment on both wrists

2022-05-21 15:26:58 +01:00
parent 8ad332aced
commit c5818271d8
6 changed files with 42 additions and 50 deletions
@@ -61,7 +61,7 @@ autoSonar = defaultEquipment
    , _itEquipPict = \_ _ -> (,) emptySH blank
    , _itEffect = autoSonarEffect
    , _itID = Nothing
-    }
+    } & itUse . eqSite .~ GoesOnWrist
 {- |
 Automatically sends out pulses that display walls.  -}
 autoRadar :: Item
@@ -71,4 +71,4 @@ autoRadar = defaultEquipment
    , _itEquipPict = \_ _ -> (,) emptySH blank
    , _itEffect = autoRadarEffect
    , _itID = Nothing
-    }
+    } & itUse . eqSite .~ GoesOnWrist