Broken commit

src/Dodge/Item.hs

@@ -20,22 +20,17 @@ itemFromBase ibt = case ibt of
     HELD ht -> itemFromHeldType ht
     LEFT lt -> itemFromLeftType lt
     EQUIP et -> itemFromEquipType et
-    AMMO at -> itemFromAmmoType at
     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
+    SCROLLATTACH ZOOMSCOPE -> zoomScope
+    AMMOATTACH DRUMMAG -> drumMag
+    AMMOATTACH TINMAG -> tinMag
+    AMMOATTACH BULLETBELT -> beltMag
 
-itemFromAmmoType :: AmmoItemType -> Item
-itemFromAmmoType at = case at of
-    TINMAGAZINE -> tinMag
-    DRUMMAGAZINE -> drumMag
-    BULLETBELT -> beltMag
 
 itemFromConsumableType :: ConsumableItemType -> Item
 itemFromConsumableType ct = case ct of