Tweak module display and logic

src/Dodge/Module.hs

@@ -6,6 +6,7 @@ module Dodge.Module (
 
 import qualified Data.Map.Strict as M
 import Dodge.Data.Item
+import Dodge.Module.Info
 
 moduleSizes :: Item -> Int
 moduleSizes = sum . fmap moduleSize . _iyModules . _itType
@@ -24,11 +25,8 @@ moduleName imt = case imt of
     DRUMMAG -> Just "+DRUM MAG"
     BELTMAG -> Just "+BELT FEED"
     MAGNETMAG -> Just "+MAGNET FEED"
-    INCENDBUL -> Just "+INCENDIARY"
-    BOUNCEBUL -> Just "+BOUNCE"
-    PENBUL -> Just "+PENETRATE"
-    STATICBUL -> Just "+STATIC"
-    CONCUSBUL -> Just "+CONCUSS"
+    BULPAY thepayload -> Just $ "+" ++ displayBulletPayload thepayload
+    BULBODY thebody -> Just $ "+" ++ displayBulletBody thebody
     TARGET TargetRBCreature -> Just "+CREATURETARGETING"
     TARGET TargetLaser -> Just "+LASERTARGETING"
     TARGET TargetRBPress -> Just "+POSTIONALTARGETING"
@@ -45,6 +43,7 @@ moduleName imt = case imt of
     EXTRABATTERY -> Just "+BATTERY"
     ATTACHTORCH -> Just "+TORCH"
 
+
 --moduleFold :: (m -> m -> m) -> (ItemModule -> Maybe m) -> m -> Item -> m
 --moduleFold g f e = foldr (g . fromMaybe e . f) e
 --    . fmap fromModuleType