Cleanup and reorganise

src/Dodge/Item/Weapon/InventoryDisplay.hs

@@ -2,15 +2,14 @@
 Display of weapon strings in the inventory.
  -}
 module Dodge.Item.Weapon.InventoryDisplay
-    where
+    ( basicWeaponDisplay
+    ) where
 import Dodge.Data
---import Dodge.Base
 import Dodge.Item.Attachment.Data
 import Padding
 
 import Data.Sequence
 import Control.Lens
---import Control.Monad
 {- | Displays the item name, ammo if loaded, and any selected '_itCharMode'.  -}
 basicWeaponDisplay :: Item -> String
 basicWeaponDisplay it = case it ^? itAttachment of
@@ -18,7 +17,6 @@ basicWeaponDisplay it = case it ^? itAttachment of
     Just ItMode {_itMode = i} -> midPadL 10 ' ' (_itName it) (' ' : aIfLoaded) ++ show i
     _   -> midPadL 10 ' ' (_itName it) (' ' : aIfLoaded)
   where 
-    --availableAmmo = show $ _wpMaxAmmo it
     aIfLoaded = case it ^? wpReloadState of 
         Just 0 -> show $ _wpLoadedAmmo it
         Just x -> "R" ++ show x