Various refactoring

src/Dodge/Item/Weapon/InventoryDisplay.hs

@@ -4,8 +4,9 @@ Display of weapon strings in the inventory.
 module Dodge.Item.Weapon.InventoryDisplay
     where
 import Dodge.Data
-import Dodge.Base
+--import Dodge.Base
 import Dodge.Item.Attachment.Data
+import Padding
 
 import Data.Sequence
 import Control.Lens

src/Dodge/Item/Weapon/Launcher.hs

@@ -19,6 +19,7 @@ import Dodge.RandomHelp
 import Geometry
 import Picture
 import qualified IntMapHelp as IM
+import Padding
 
 import Data.Maybe
 import Control.Lens