Cleanup, stop drawing space characters

src/Dodge/Item/Display.hs

@@ -21,7 +21,7 @@ itemDisplay cr itm = --itemDisplayWithNumber (showConsumption cr it) it
     zipWithDefaults id (leftPad 15 ' ') itemDisplayPad (basicItemDisplay itm) (itemNumberDisplay cr itm)
 
 zipWithDefaults :: (a -> c) -> (b -> c) -> (a -> b -> c) -> [a] -> [b] -> [c]
-zipWithDefaults f g h xs ys = go xs ys
+zipWithDefaults f g h = go
   where
     go [] bs = map g bs
     go as [] = map f as
@@ -113,7 +113,7 @@ showReloadProgress' cr itm = case ic ^? laSource of
             x <- ic ^? laSource . _InternalSource . iaLoaded
             return $ show x
         Just la -> show (_actionTime la) ++ showLoadActionType la (_laSource ic)
-    Just AboveSource -> fromMaybe "XXXX" $ do
+    Just AboveSource -> fromMaybe "||||" $ do
         i <- fmap (subtract 1) $ itm ^? itLocation . ipInvID
         _ <- cr ^? crInv . ix i . itUse . equipEffect . eeUse . euseAmmoAmount
         --return $ showIntKMG' x