Fold some ammo data into its own type

src/Dodge/Item/Weapon/InventoryDisplay.hs

@@ -17,6 +17,6 @@ basicWeaponDisplay it = case it ^? itAttachment of
     _   -> midPadL 10 ' ' (_itName it) (' ' : aIfLoaded)
   where 
     aIfLoaded = case it ^? wpReloadState of 
-        Just 0 -> show $ _wpLoadedAmmo it
+        Just 0 -> show $ _wpLoadedAmmo (_wpAmmo it)
         Just x -> "R" ++ show x
         _ -> ""