Remove old datatypes, change ammomag inv text colour

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"