Remove left click/hotkey item data types

src/Dodge/Item/Info.hs

@@ -23,7 +23,6 @@ itmSpaceInfo itm = case itInvHeight itm of
 itmBaseInfo :: Item -> String
 itmBaseInfo itm = case itm ^. itType of
     HELD hit -> heldInfo hit
-    LEFT lit -> leftInfo lit
     EQUIP eit -> equipInfo eit
     CONSUMABLE cit -> consumableInfo cit
     CRAFT fit -> craftInfo fit
@@ -48,6 +47,8 @@ showInt i = case i of
 
 heldInfo :: HeldItemType -> String
 heldInfo hit = case hit of
+    BLINKERUNSAFE -> "A device that allows local teleportation. Potentially hazardous around walls."
+    BLINKER -> "A device that allows local teleportation."
     BANGSTICK 1 -> "A firearm with a short barrel that requires reloading after each shot."
     BANGSTICK i -> over _head toUpper (showInt i) ++ " small gun barrels strapped together. Each barrel must be individually loaded, but not all need be loaded for the weapon to fire. All loaded barrels discharge simultaneously, with significant spread."
     PISTOL -> "A small firearm fed by a magazine. The entire magazine must be replaced when reloading the weapon."
@@ -90,16 +91,9 @@ heldInfo hit = case hit of
     TORCH -> "A stick with a light on the end."
     FLATSHIELD -> "A panel of metal that blocks unwanted objects from the front of the user."
     KEYCARD i -> "A keycard. It is labelled " ++ show i ++ "."
-
-leftInfo :: LeftItemType -> String
-leftInfo lit = case lit of
-    BOOSTER -> "A device that allows travel at speed."
-    STOPWATCH -> "A device that temporarily pauses time."
-    REWINDWATCH -> "A device that rewinds time a short amount."
-    SCROLLWATCH -> "A device that can be used to scroll through recent events."
-    BLINKER -> "A device that allows local teleportation."
-    BLINKERUNSAFE -> "A device that allows local teleportation. Potentially hazardous around walls."
-    SPAWNER -> "A device that spawns creatures."
+    TIMESTOPPER -> "A device that temporarily pauses time."
+    REWINDER -> "A device that rewinds time a short amount."
+    TIMESCROLLER -> "A device that can be used to scroll through recent events."
 
 equipInfo :: EquipItemType -> String
 equipInfo eit = case eit of
@@ -197,9 +191,9 @@ detectorInfo d = case d of
 itmUsageInfo :: Item -> String
 itmUsageInfo itm = case itm ^. itType of
     HELD _ -> heldPositionInfo itm
-    LEFT _ ->
-        "This item can be equipped" ++ itmEquipSiteInfo itm
-            ++ ". When equipped, it can be activated."
+--    LEFT _ ->
+--        "This item can be equipped" ++ itmEquipSiteInfo itm
+--            ++ ". When equipped, it can be activated."
     EQUIP _ -> "This item can be equipped " ++ itmEquipSiteInfo itm ++ "."
     CONSUMABLE _ -> "This item can be consumed."
     CRAFT _ -> ""