Remove (by commenting out) module item-type system

src/Dodge/Item.hs

@@ -26,7 +26,7 @@ itemFromBase ibt = case ibt of
     ATTACH at -> itemFromAttachType at
     AMMOMAG t -> itemFromAmmoMag t
     TARGETING tt -> targetingScope tt
-    HOMING btt -> bulletTargetingModule btt
+    BULLETMOD bm -> bulletModule bm
 
 itemFromAmmoMag :: AmmoMagType -> Item
 itemFromAmmoMag at = case at of
@@ -45,6 +45,7 @@ itemFromAttachType at = case at of
     REMOTESCREEN -> remoteScreen
 --    ROCKETHOMER -> rocketHomer
     HOMINGMODULE -> homingModule
+    AUGMENTEDHUD -> augmentedHUD
 
 
 itemFromConsumableType :: ConsumableItemType -> Item