Implement simple flak and frag bullets

src/Dodge/Item/Info.hs

@@ -1,5 +1,6 @@
 module Dodge.Item.Info where
 
+import StringHelp
 import Dodge.Module.Info
 import Data.Char
 import Dodge.Data.Item
@@ -182,10 +183,11 @@ craftInfo fit = case fit of
     BATTERY -> "A store of electical potential energy."
     FUELCELL -> "A devices that converts chemical energy into electricity."
     PORTABLEFUSION -> "A miniature nuclear reactor."
-    BULPAYLOADMODULE ebt -> "A device that converts projectiles into " ++ displayBulletPayload ebt ++ " projectiles."
+    GASINJECTOR -> "A device that can inject small quantities of gas into objects."
+    ENERGYBALLCRAFT ebt -> "A device that can create " ++ addIndefiniteArticle (displayEnergyBallType ebt) ++ " effect."
     FRAGMODULE -> "A device that converts projectiles into fragmentation projectiles."
     FLASHMODULE -> "A device that converts projectiles into flashbang projectiles."
-    BULBODYCRAFT be -> "A device that converts projectiles into " ++ displayBulletBody be ++ " projectiles."
+    BULBODYCRAFT be -> "A device that converts bullets into " ++ displayBulletBody be ++ " projectiles."
     TELEPORTMODULE -> "A device that allows for near-instant translocation across space."
     TIMEMODULE -> "A device that can affect temporality."
     SIZEMODULE -> "A device that can affect physical size."
@@ -193,6 +195,9 @@ craftInfo fit = case fit of
 
     TARGETMODULE _ -> "A targeting module."
     
+    FLAKCRAFT -> "Creates flak bullets."
+    FRAGCRAFT -> "Creates fragmentation bullets."
+    
 
 detectorInfo :: Detector -> String
 detectorInfo d = case d of