Move function fields outside equipment

2022-07-20 20:40:13 +01:00
parent e9f0130013
commit 845c1f282e
14 changed files with 87 additions and 29 deletions
@@ -47,9 +47,9 @@ defaultlUse = LeftUse
 defaultEquip :: Equipment
 defaultEquip = Equipment
    { _eqSite = GoesOnSpecial
-    , _eqUse = \_ _ -> id
-    , _eqOnEquip = \_ _ -> id
-    , _eqOnRemove = \_ _ -> id
+    , _eqUse = EDoNothing
+    , _eqOnEquip = EDoNothing
+    , _eqOnRemove = EDoNothing
    , _eqParams = NoEquipParams
    , _eqViewDist = Nothing
    }