Remove old datatypes, change ammomag inv text colour

src/Dodge/Item/Ammo.hs

@@ -15,7 +15,7 @@ tinMag =
             .~ AmmoMagUse
                 { _amagParams = BulletParams defaultBullet
                 , _amagLoadStatus =
-                    InternalAmmo
+                    ReloadStatus
                         { _iaMax = 15
                         , _iaLoaded = 15
                         , _iaPrimed = True
@@ -51,7 +51,7 @@ shellMag =
             .~ AmmoMagUse
                 { _amagParams = BulletParams defaultBullet
                 , _amagLoadStatus =
-                    InternalAmmo
+                    ReloadStatus
                         { _iaMax = 15
                         , _iaLoaded = 15
                         , _iaPrimed = True

src/Dodge/Item/Display.hs

@@ -171,7 +171,7 @@ showReloadProgress _ itm = fromMaybe [] $ do
 --  where
 --    ic = itm ^?! itUse . heldConsumption
 
-showLoadActionType :: LoadAction -> InternalAmmo -> String
+showLoadActionType :: LoadAction -> ReloadStatus -> String
 showLoadActionType la as = case la of
     LoadEject{} -> "E"
     LoadInsert{} -> "L"

src/Dodge/Item/InventoryColor.hs

@@ -12,4 +12,4 @@ itemInvColor itm = case itm ^. itType . iyBase of
     CONSUMABLE {} -> blue
     CRAFT {} -> green
     ATTACH {} -> orange
-    AMMOMAG {} -> greyN 0.5
+    AMMOMAG {} -> greyN 0.8