Implement teleporting bullets

src/Dodge/Item/Weapon/InventoryDisplay.hs

@@ -10,6 +10,7 @@ module Dodge.Item.Weapon.InventoryDisplay
 import Dodge.Data
 import Padding
 import Dodge.Inventory.ItemSpace
+import Dodge.Module
 
 import Data.Maybe
 import Data.Sequence
@@ -37,10 +38,7 @@ basicItemDisplay it = Prelude.take (itSlotsTaken it) $
 --        , maybeRateStatus
         ]
 
-moduleStrings :: Item -> [String]
-moduleStrings it = map ("  " ++)
-    $  (fromMaybe [] $ it ^? itModules . modHitEffect . modName)
-    ++ (fromMaybe [] $ it ^? itModules . modRifleMag . modName)
+-- this can be moved to Dodge/Module and unified with moduleSizes
 
 maybeModeStatus :: Item -> Maybe String
 maybeModeStatus it = case it ^? itAttachment of