Cleanup

src/Dodge/Item/Info.hs

@@ -180,15 +180,15 @@ craftInfo fit = case fit of
     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."
-    ENERGYBALLCRAFT ebt -> "A device that can create " ++ addIndefiniteArticle (displayEnergyBallType ebt) ++ " effect."
+--    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 bullets 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."
     GRAVITYMODULE -> "A device that can affect gravitational fields."
-    TARGETMODULE _ -> "A targeting module."
+--    TARGETMODULE _ -> "A targeting module."
     FLAKCRAFT -> "Creates flak bullets."
     FRAGCRAFT -> "Creates fragmentation bullets."
 
@@ -255,16 +255,16 @@ makeCommaList [x] = x ++ "."
 makeCommaList [x, y] = x ++ " and " ++ y ++ "."
 makeCommaList (x : xs) = x ++ ", " ++ makeCommaList xs
 
-moduleInfo :: ModuleSlot -> String
-moduleInfo imt = case imt of
-    ModBulletCollision -> "to affect how fired bullets collide with objects"
-    ModBulletPayload -> "to bullet payloads"
-    ModRifleMag -> "to the magazine"
-    ModAutoMag -> "to the magazine"
-    ModTarget -> "to add a targeting system or scope"
-    ModBulletTrajectory -> "to utilize any installed targeting system to affect the trajectory of fired bullets"
-    ModLauncherHoming -> "to add a homing system"
-    ModBattery -> "to its battery system"
-    ModTeleport -> "to add a teleporation system"
-    ModDualBeam -> "to the dual beams"
-    ModHeldAttach -> "to add an attachment that may have any number of effects"
+--moduleInfo :: ModuleSlot -> String
+--moduleInfo imt = case imt of
+--    ModBulletCollision -> "to affect how fired bullets collide with objects"
+--    ModBulletPayload -> "to bullet payloads"
+--    ModRifleMag -> "to the magazine"
+--    ModAutoMag -> "to the magazine"
+--    ModTarget -> "to add a targeting system or scope"
+--    ModBulletTrajectory -> "to utilize any installed targeting system to affect the trajectory of fired bullets"
+--    ModLauncherHoming -> "to add a homing system"
+--    ModBattery -> "to its battery system"
+--    ModTeleport -> "to add a teleporation system"
+--    ModDualBeam -> "to the dual beams"
+--    ModHeldAttach -> "to add an attachment that may have any number of effects"