Tweak module display and logic

src/Dodge/Module/Info.hs

@@ -0,0 +1,15 @@
+module Dodge.Module.Info where
+--import qualified Data.Map.Strict as M
+import Dodge.Data.Item
+
+displayBulletBody :: BulletEffect -> String
+displayBulletBody be = case be of
+    DestroyBullet -> "DESBUL-shouldn't display"
+    BounceBullet -> "BOUNCING"
+    PenetrateBullet -> "PENETRATING"
+
+displayBulletPayload :: EnergyBallType -> String
+displayBulletPayload ebt = case ebt of
+    IncBall -> "INCENDIARY" 
+    TeslaBall -> "STATIC"
+    ConcBall -> "CONCUSSIVE"