Cleanup warnings

src/Dodge/Item/Weapon/InventoryDisplay.hs

@@ -9,20 +9,15 @@ import Dodge.Item.Attachment.Data
 
 import Data.Sequence
 import Control.Lens
-import Control.Monad
-
--- not sure if this is in the right place...
-
-{- |
-Displays the item name, ammo if loaded, and any selected '_itCharMode'.
- -}
+--import Control.Monad
+{- | Displays the item name, ammo if loaded, and any selected '_itCharMode'.  -}
 basicWeaponDisplay :: Item -> String
 basicWeaponDisplay it = case it ^? itAttachment . _Just of
     Just ItCharMode {_itCharMode = (c :<| _)} -> midPadL 10 ' ' (_itName it) (' ' : aIfLoaded) ++ [' ',c]
     Just ItMode {_itMode = i} -> midPadL 10 ' ' (_itName it) (' ' : aIfLoaded) ++ show i
     _   -> midPadL 10 ' ' (_itName it) (' ' : aIfLoaded)
   where 
-    availableAmmo = show $ _wpMaxAmmo it
+    --availableAmmo = show $ _wpMaxAmmo it
     aIfLoaded = case it ^? wpReloadState of 
         Just 0 -> show $ _wpLoadedAmmo it
         Just x -> "R" ++ show x