Allow for item use when not root

src/Dodge/Item/Info.hs

@@ -24,7 +24,6 @@ itmBaseInfo :: Item -> String
 itmBaseInfo itm = case itm ^. itType of
     HELD hit -> heldInfo hit
     EQUIP eit -> equipInfo eit
-    CONSUMABLE cit -> consumableInfo cit
     CRAFT fit -> craftInfo fit
     _ -> "THIS SHOULD NOT BE DISPLAYED"
 
@@ -122,11 +121,6 @@ equipInfo eit = case eit of
 --    TargetRBCreature -> "targets a creature."
 --    TargetCursor -> "creates a moving target."
 
-consumableInfo :: ConsumableItemType -> String
-consumableInfo cit = case cit of
-    MEDKIT _ -> "A self-use healing kit."
-    EXPLOSIVES -> "Explosives."
-
 craftInfo :: CraftType -> String
 craftInfo fit = case fit of
     PIPE -> "A rigid cylinder."
@@ -195,7 +189,6 @@ itmUsageInfo itm = case itm ^. itType of
 --        "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 _ -> ""
     _ -> "THIS SHOULD NOT BE DISPLAYED"