Commit before changing module system to Map

src/Dodge/Data.hs

@@ -342,7 +342,7 @@ _itUseAimStance = _aimStance . _useAim . _itUse
 data ItemConsumption
     = LoadableAmmo
         { _aoType      :: AmmoType
-        , _ammoMax     :: Int
+        , _ammoBaseMax :: Int
         , _ammoLoaded  :: Int
         , _reloadTime  :: Int
         , _reloadState :: Maybe' Int
@@ -380,7 +380,13 @@ data Item
 
 data ItemModules = ItemModules
     { _modHitEffect :: ItemModule HitEffect
+    , _modRifleMag  :: ItemModule RifleMag
     }
+data RifleMag = DrumMag | BeltMag | MagnetMag
+
+data ModuleSlot
+    = ModBullet
+    | ModRifleMag
 
 data ItemModule a 
     = BlockedModule
@@ -389,6 +395,7 @@ data ItemModule a
         { _theModule :: a
         , _modName :: [String]
         , _modSize :: Int
+        , _modModification :: Item -> Item
         }
 
 data ItemDimension = ItemDimension