Cleanup

src/Dodge/Data/Item/Combine.hs

@@ -5,18 +5,23 @@
 
 module Dodge.Data.Item.Combine where
 
-import Dodge.Data.Item.BulletMod
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
-import qualified Data.Map.Strict as M
 import Dodge.Data.Equipment.Misc
+import Dodge.Data.Item.BulletMod
 import Dodge.Data.Item.Targeting
-import Dodge.Data.Item.Use.Consumption
 
-data ItemType = ItemType
-    { _iyBase :: ItemBaseType
-    }
+data ItemType
+    = HELD {_ibtHeld :: HeldItemType}
+    | LEFT {_ibtLeft :: LeftItemType}
+    | EQUIP {_ibtEquip :: EquipItemType}
+    | CONSUMABLE {_ibtConsumable :: ConsumableItemType}
+    | CRAFT {_ibtCraft :: CraftType}
+    | ATTACH {_ibtAttach :: AttachType}
+    | AMMOMAG {_ibtAmmoMag :: AmmoMagType}
+    | TARGETING {_ibtTargeting :: TargetingType}
+    | BULLETMOD {_ibtBulletMod :: BulletMod}
     deriving (Eq, Ord, Show, Read)
 
 data CraftType
@@ -64,25 +69,13 @@ data CraftType
     | GASINJECTOR
     | FLAKCRAFT
     | FRAGCRAFT
---    | ENERGYBALLCRAFT EnergyBallType
---    | BULBODYCRAFT BulletEffect
-    | TELEPORTMODULE
+    | --    | ENERGYBALLCRAFT EnergyBallType
+      --    | BULBODYCRAFT BulletEffect
+      TELEPORTMODULE
     | TIMEMODULE
     | SIZEMODULE
     | GRAVITYMODULE
---    | TARGETMODULE TargetingType
-    deriving (Eq, Ord, Show, Read)
-
-data ItemBaseType
-    = HELD {_ibtHeld :: HeldItemType}
-    | LEFT {_ibtLeft :: LeftItemType}
-    | EQUIP {_ibtEquip :: EquipItemType}
-    | CONSUMABLE {_ibtConsumable :: ConsumableItemType}
-    | CRAFT CraftType
-    | ATTACH {_ibtAttach :: AttachType}
-    | AMMOMAG {_ibtAmmoMag :: AmmoMagType}
-    | TARGETING {_ibtTargeting :: TargetingType}
-    | BULLETMOD {_ibtBulletMod :: BulletMod}
+    --    | TARGETMODULE TargetingType
     deriving (Eq, Ord, Show, Read)
 
 data AttachType
@@ -94,8 +87,7 @@ data AttachType
     deriving (Eq, Ord, Show, Read)
 
 data AmmoMagType
-    = REVOLVEMAG
-    | TINMAG
+    = TINMAG
     | DRUMMAG
     | BELTMAG
     | SHELLMAG
@@ -103,7 +95,6 @@ data AmmoMagType
     | CHEMFUELPOUCH
     deriving (Eq, Ord, Show, Read)
 
-
 data ConsumableItemType
     = MEDKIT Int
     | EXPLOSIVES
@@ -117,7 +108,6 @@ data EquipItemType
     | INVISIBILITYEQUIPMENT EquipSite
     | BRAINHAT
     | HAT
-    | TARGETINGHAT TargetingType
     | HEADLAMP
     | POWERLEGS
     | SPEEDLEGS
@@ -188,7 +178,6 @@ data Detector
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''ItemType
-makeLenses ''ItemBaseType
 makeLenses ''HeldItemType
 makeLenses ''AttachType
 deriveJSON defaultOptions ''CraftType
@@ -199,7 +188,6 @@ deriveJSON defaultOptions ''Detector
 deriveJSON defaultOptions ''EquipItemType
 deriveJSON defaultOptions ''LeftItemType
 deriveJSON defaultOptions ''HeldItemType
-deriveJSON defaultOptions ''ItemBaseType
 deriveJSON defaultOptions ''ItemType
 
 --instance ToJSONKey ModuleSlot

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

@@ -20,7 +20,6 @@ import Dodge.Data.Item.Use.Consumption.LoadAction
 data ReloadStatus = ReloadStatus
     { _iaMax :: Int
     , _iaLoaded :: Int
-    -- , _iaPrimed :: Bool
     }
     deriving (Eq, Show, Read) --Generic, Flat)