Remove record concerning removing equipment effects

src/Dodge/Creature/Impulse/UseItem.hs

@@ -11,7 +11,6 @@ import Dodge.Data.ComposedItem
 import Dodge.Data.DoubleTree
 import Dodge.Data.World
 import Dodge.DoubleTree
-import Dodge.Euse
 import Dodge.HeldUse
 import Dodge.Inventory
 import Dodge.Item.Grammar
@@ -127,7 +126,8 @@ toggleEquipmentAt invid cr w = case getEquipmentAllocation invid w of
     crpoint = cWorld . lWorld . creatures . ix (_crID cr)
     itmat i = _crInv cr IM.! i
     itm = itmat invid
-    onequip itm' = doItmCrWdWd ((_eeOnEquip . _uequipEffect . _itUse) itm') itm'
+    --onequip itm' = doItmCrWdWd ((_eeOnEquip . _uequipEffect . _itUse) itm') itm'
+    onequip itm' = effectOnEquip itm'
     --onremove itm' = doItmCrWdWd ((_eeOnRemove . _uequipEffect . _itUse) itm') itm'
     onremove itm' = effectOnRemove itm'
 

src/Dodge/Data/Item/Use/Equipment.hs

@@ -15,7 +15,7 @@ import Dodge.Data.Item.HeldUse
 
 data EquipEffect = EquipEffect
     { _eeUse :: Euse --Item -> Creature -> World -> World
-    , _eeOnEquip :: ItmCrWdWd --Item -> Creature -> World -> World
+--    , _eeOnEquip :: ItmCrWdWd --Item -> Creature -> World -> World
 --    , _eeOnRemove :: ItmCrWdWd --Item -> Creature -> World -> World
 --    , _eeParams :: EquipParams
 --    , _eeViewDist :: Maybe Float

src/Dodge/Default/Item/Use/Equipment.hs

@@ -8,7 +8,7 @@ defaultEquip =
     EquipEffect
         { --_eeType = GoesOnHead
          _eeUse = EDoNothing
-        , _eeOnEquip = ItmCrWdWdDoNothing
+--        , _eeOnEquip = ItmCrWdWdDoNothing
 --        , _eeOnRemove = ItmCrWdWdDoNothing
 --        , _eeParams = NoEquipParams
 --        , _eeViewDist = Nothing

src/Dodge/Item/Equipment.hs

@@ -42,7 +42,7 @@ frontArmour =
 wristArmour :: Item
 wristArmour =
     defaultEquipment
-        & itUse . uequipEffect . eeOnEquip .~ EonWristShield
+--        & itUse . uequipEffect . eeOnEquip .~ EonWristShield
         & itUse . uequipEffect . eeUse .~ EWristShield
 --        & itUse . uequipEffect . eeOnRemove .~ EoffWristShield
         & itType .~ EQUIP WRISTARMOUR