Remove equipment records

src/Dodge/Data/EquipType.hs

@@ -12,7 +12,7 @@ equipType itm = case itm ^. itType of
 
 eitType :: EquipItemType -> EquipType
 eitType = \case
-    MAGSHIELD -> GoesOnWrist
+    MAGSHIELD _ -> GoesOnWrist
     FLAMESHIELD -> GoesOnWrist
     FRONTARMOUR -> GoesOnChest
     WRISTARMOUR -> GoesOnWrist

src/Dodge/Data/Item/Combine.hs

@@ -4,6 +4,7 @@
 
 module Dodge.Data.Item.Combine where
 
+import Dodge.Data.Magnet
 import Dodge.Data.Payload
 import Control.Lens
 import Data.Aeson
@@ -116,7 +117,7 @@ data ConsumableItemType
     deriving (Eq, Ord, Show, Read)
 
 data EquipItemType
-    = MAGSHIELD
+    = MAGSHIELD MagnetBuBu
     | FLAMESHIELD
     | FRONTARMOUR
     | WRISTARMOUR

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

@@ -11,16 +11,15 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Equipment.Misc
-import Dodge.Data.Item.HeldUse
 
 data EquipEffect = EquipEffect
-    { _eeUse :: Euse --Item -> Creature -> World -> World
---    , _eeOnEquip :: ItmCrWdWd --Item -> Creature -> World -> World
---    , _eeOnRemove :: ItmCrWdWd --Item -> Creature -> World -> World
---    , _eeParams :: EquipParams
---    , _eeViewDist :: Maybe Float
---    , _eeAttachPos :: Point3
-    }
+--    { _eeUse :: Euse --Item -> Creature -> World -> World
+----    , _eeOnEquip :: ItmCrWdWd --Item -> Creature -> World -> World
+----    , _eeOnRemove :: ItmCrWdWd --Item -> Creature -> World -> World
+----    , _eeParams :: EquipParams
+----    , _eeViewDist :: Maybe Float
+----    , _eeAttachPos :: Point3
+--    }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data ItmCrWdWd