Work on weapon attachments

src/Dodge/Item.hs

@@ -17,18 +17,19 @@ import Dodge.Item.Weapon
 
 itemFromBase :: ItemBaseType -> Item
 itemFromBase ibt = case ibt of
-    NoItemType -> undefined
     HELD ht -> itemFromHeldType ht
     LEFT lt -> itemFromLeftType lt
     EQUIP et -> itemFromEquipType et
     AMMO at -> itemFromAmmoType at
-    Consumable et -> itemFromConsumableType et
+    CONSUMABLE et -> itemFromConsumableType et
     CRAFT cr -> makeTypeCraft cr
     ATTACH at -> itemFromAttachType at
 
 itemFromAttachType :: AttachType -> Item
 itemFromAttachType at = case at of
     ZOOMSCOPE -> zoomScope
+    DRUMMAG -> drumMag
+    TINMAG -> tinMag
 
 itemFromAmmoType :: AmmoItemType -> Item
 itemFromAmmoType at = case at of