Allow for item use when not root

src/Dodge/Item.hs

@@ -3,7 +3,6 @@
 module Dodge.Item (
     module Dodge.Item.Weapon,
     module Dodge.Item.Held,
-    module Dodge.Item.Consumable,
     module Dodge.Item.Equipment,
     module Dodge.Item.Craftable,
     itemFromBase,
@@ -11,7 +10,6 @@ module Dodge.Item (
 
 import Dodge.Data.Item
 import Dodge.Item.Ammo
-import Dodge.Item.Consumable
 import Dodge.Item.Craftable
 import Dodge.Item.Equipment
 import Dodge.Item.Held
@@ -23,7 +21,6 @@ itemFromBase = \case
     HELD ht -> itemFromHeldType ht
 --    LEFT lt -> itemFromLeftType lt
     EQUIP et -> itemFromEquipType et
-    CONSUMABLE et -> itemFromConsumableType et
     CRAFT cr -> makeTypeCraft cr
     ATTACH at -> itemFromAttachType at
     AMMOMAG t -> itemFromAmmoMag t
@@ -48,11 +45,6 @@ itemFromAttachType at = case at of
     HOMINGMODULE -> homingModule
     AUGMENTEDHUD -> augmentedHUD
 
-itemFromConsumableType :: ConsumableItemType -> Item
-itemFromConsumableType ct = case ct of
-    MEDKIT i -> medkit i
-    EXPLOSIVES -> undefined
-
 itemFromEquipType :: EquipItemType -> Item
 itemFromEquipType et = case et of
     MAGSHIELD -> magShield