Remove equipment records

src/Dodge/Item.hs

@@ -47,7 +47,7 @@ itemFromAmmoMag at = case at of
     CHEMFUELPOUCH -> chemFuelPouch
 
 itemFromAttachType :: AttachType -> Item
-itemFromAttachType at = case at of
+itemFromAttachType = \case
     UNDERBARRELSLOT -> underBarrelSlot
     ZOOMSCOPE -> zoomScope
     BULLETSYNTH -> bulletSynthesizer
@@ -57,13 +57,12 @@ itemFromAttachType at = case at of
     GYROSCOPE -> gyroscope
     REMOTEDETONATOR -> remoteDetonator
     SMOKEREDUCER -> smokeReducer
-    --    ROCKETHOMER -> rocketHomer
     HOMINGMODULE -> homingModule
     SHELLPAYLOAD p -> shellModule p
 
 itemFromEquipType :: EquipItemType -> Item
 itemFromEquipType et = case et of
-    MAGSHIELD -> magShield
+    MAGSHIELD mt -> magShield mt
     FLAMESHIELD -> flameShield
     FRONTARMOUR -> frontArmour
     WRISTARMOUR -> wristArmour