Remove equipment records

src/Dodge/Equipment.hs

@@ -3,17 +3,17 @@ module Dodge.Equipment (
     effectOnEquip,
 ) where
 
-import Dodge.Creature.Test
-import Dodge.Creature.HandPos
-import Geometry
-import Dodge.Wall.Move
-import Dodge.Wall.ForceField
-import qualified IntMapHelp as IM
-import Dodge.Wall.Delete
-import Dodge.Item.Location
 import Control.Lens
-import Dodge.Data.World
 import Data.Maybe
+import Dodge.Creature.HandPos
+import Dodge.Creature.Test
+import Dodge.Data.World
+import Dodge.Item.Location
+import Dodge.Wall.Delete
+import Dodge.Wall.ForceField
+import Dodge.Wall.Move
+import Geometry
+import qualified IntMapHelp as IM
 
 effectOnRemove :: Item -> Creature -> World -> World
 effectOnRemove itm = case itm ^. itType of
@@ -38,13 +38,15 @@ effectOnEquip itm = case itm ^. itType of
 onEquipWristShield' :: Item -> Creature -> World -> World
 onEquipWristShield' itm cr w =
     w
---        & pointerToItem itm . itUse . uequipEffect . eeParams .~ EquipID i
-        & pointerToItem itm . itParams .~ ItemParamID {_itParamID = i}
+        --        & pointerToItem itm . itUse . uequipEffect . eeParams .~ EquipID i
+        & pointerToItem itm . itParams .~ ItemParamID{_itParamID = i}
         & cWorld . lWorld . walls . at i ?~ forceField{_wlID = i}
-        & setWristShieldPos (itm 
-            -- & itUse . uequipEffect . eeParams .~ EquipID i
-            & itParams .~ ItemParamID {_itParamID = i}
-            ) cr
+        & setWristShieldPos
+            ( itm
+                -- & itUse . uequipEffect . eeParams .~ EquipID i
+                & itParams .~ ItemParamID{_itParamID = i}
+            )
+            cr
   where
     i = IM.newKey (w ^. cWorld . lWorld . walls)