Add shapes for craft items

src/Dodge/Item/Info.hs

@@ -162,18 +162,18 @@ 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."
-    GASINJECTOR -> "A device that can inject small quantities of gas into objects."
+--    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."
+--    FRAGMODULE -> "A device that converts projectiles into fragmentation projectiles."
+--    FLASHMODULE -> "A device that converts projectiles into flashbang 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."
 --    GRAVITYMODULE -> "A device that can affect gravitational fields."
 --    TARGETMODULE _ -> "A targeting module."
-    FLAKCRAFT -> "Creates flak bullets."
-    FRAGCRAFT -> "Creates fragmentation bullets."
+--    FLAKCRAFT -> "Creates flak bullets."
+--    FRAGCRAFT -> "Creates fragmentation bullets."
 
 detectorInfo :: Detector -> String
 detectorInfo d = case d of