Cleanup

src/Dodge/Module.hs

@@ -1,6 +1,7 @@
 module Dodge.Module 
     ( moduleSizes
     , moduleStrings
+    , moduleName
     ) where
 import Dodge.Data
 --import Dodge.Combine.Module
@@ -27,7 +28,25 @@ moduleStrings = map moduleName . M.elems . _iyModules . _itType
 moduleName :: ItemModuleType -> String
 moduleName imt = case imt of
     EMPTYMODULE -> ""
-    _ -> '+':show imt
+    DRUMMAG     -> "+DRUM MAG"
+    BELTMAG     -> "+BELT FEED"
+    MAGNETMAG   -> "+MAGNET FEED"
+    INCENDBUL   -> "+INCENDIARY"
+    BOUNCEBUL   -> "+BOUNCE"
+    STATICBUL   -> "+STATIC"
+    CONCUSBUL   -> "+CONCUSS"
+    TARGCR      -> "+CREATURETARGETING"
+    TARGLAS     -> "+LASERTARGETING"
+    TARGPOS     -> "+POSTIONALTARGETING"
+    MAGNETTRAJ  -> "+MAGNETTRAJECTORY" 
+    FLECHETRAJ  -> "+FLECHETTETRAJECTORY"
+    BEZIERTRAJ  -> "+BEZIERTRAJECTORY" 
+    INCENDLAS   -> "+INCENDIARY"
+    SPLITLAS    -> "+SPLIT"
+    STATICLAS   -> "+STATIC" 
+    WEPTELE     -> "+DIRECTEDTELE"
+    LAUNCHHOME  -> "+TARGET HOMING"
+    EXTRABATTERY -> "+BATTERY"
 
 --moduleFold :: (m -> m -> m) -> (ItemModule -> Maybe m) -> m -> Item -> m
 --moduleFold g f e = foldr (g . fromMaybe e . f) e