Remove left click/hotkey item data types

src/Dodge/Data/Item/Combine.hs

@@ -14,7 +14,7 @@ import Dodge.Data.Item.Targeting
 
 data ItemType
     = HELD {_ibtHeld :: HeldItemType}
-    | LEFT {_ibtLeft :: LeftItemType}
+--    | LEFT {_ibtLeft :: LeftItemType}
     | EQUIP {_ibtEquip :: EquipItemType}
     | CONSUMABLE {_ibtConsumable :: ConsumableItemType}
     | CRAFT {_ibtCraft :: CraftType}
@@ -116,18 +116,17 @@ data EquipItemType
     | WRIST_ECG
     deriving (Eq, Ord, Show, Read)
 
-data LeftItemType
-    = BOOSTER
-    | STOPWATCH
-    | REWINDWATCH
-    | SCROLLWATCH
-    | BLINKER
-    | BLINKERUNSAFE
-    | SPAWNER
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+--data LeftItemType
+--    = STOPWATCH
+--    | SCROLLWATCH
+--    | SPAWNER
+--    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data HeldItemType
     = BANGSTICK {_xNum :: Int}
+    | REWINDER
+    | TIMESTOPPER
+    | TIMESCROLLER
     | PISTOL
     | MACHINEPISTOL
     | AUTOPISTOL
@@ -163,6 +162,8 @@ data HeldItemType
     | FLATSHIELD
     | KEYCARD Int
     | DETECTOR Detector
+    | BLINKER
+    | BLINKERUNSAFE
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Detector
@@ -180,7 +181,7 @@ deriveJSON defaultOptions ''AmmoMagType
 deriveJSON defaultOptions ''AttachType
 deriveJSON defaultOptions ''Detector
 deriveJSON defaultOptions ''EquipItemType
-deriveJSON defaultOptions ''LeftItemType
+--deriveJSON defaultOptions ''LeftItemType
 deriveJSON defaultOptions ''HeldItemType
 deriveJSON defaultOptions ''ItemType