Tweaks

src/Dodge/Item/MagAmmoType.hs

@@ -1,9 +1,6 @@
 {-# LANGUAGE LambdaCase #-}
 
-module Dodge.Item.MagAmmoType (
-    magAmmoType,
-    magMax,
-) where
+module Dodge.Item.MagAmmoType (magAmmoType) where
 
 import Control.Lens
 import Dodge.Data.AmmoType
@@ -25,6 +22,3 @@ mAT = \case
     SHELLMAG -> LauncherAmmo
     BATTERY -> ElectricalAmmo
     CHEMFUELPOUCH -> GasAmmo
-
-magMax :: Item -> Maybe Int
-magMax _ = Just 100