Remove left click/hotkey item data types

src/Dodge/Item.hs

@@ -21,7 +21,7 @@ import Dodge.Item.Weapon
 itemFromBase :: ItemType -> Item
 itemFromBase = \case
     HELD ht -> itemFromHeldType ht
-    LEFT lt -> itemFromLeftType lt
+--    LEFT lt -> itemFromLeftType lt
     EQUIP et -> itemFromEquipType et
     CONSUMABLE et -> itemFromConsumableType et
     CRAFT cr -> makeTypeCraft cr
@@ -72,13 +72,3 @@ itemFromEquipType et = case et of
     BULLETBELTPACK -> bulletBeltPack
     BULLETBELTBRACER -> bulletBeltBracer
     WRIST_ECG -> pulseChecker
-
-itemFromLeftType :: LeftItemType -> Item
-itemFromLeftType lt = case lt of
-    BOOSTER -> boosterGun
-    STOPWATCH -> stopWatch
-    REWINDWATCH -> rewindWatch
-    SCROLLWATCH -> scrollWatch
-    BLINKER -> blinkGun
-    BLINKERUNSAFE -> unsafeBlinkGun
-    SPAWNER -> error "need to datify creatures first"