Cleanup

ghcidOutput

@@ -1,43 +1,48 @@
-/home/justin/Haskell/loop/src/Dodge/Combine.hs:6:1-19: warning: [-Wunused-imports]
-    The import of ‘Control.Lens’ is redundant
+/home/justin/Haskell/loop/src/Dodge/Item/Info.hs:4:1-37: warning: [-Wunused-imports]
+    The qualified import of ‘Data.Map.Strict’ is redundant
   |
-6 | import Control.Lens
-  | ^^^^^^^^^^^^^^^^^^^
-/home/justin/Haskell/loop/src/Dodge/Combine.hs:7:1-20: warning: [-Wunused-imports]
-    The import of ‘Control.Monad’ is redundant
+4 | import qualified Data.Map.Strict as M
+  | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+/home/justin/Haskell/loop/src/Dodge/Item/Info.hs:6:1-24: warning: [-Wunused-imports]
+    The import of ‘Dodge.Module.Info’ is redundant
   |
-7 | import Control.Monad
-  | ^^^^^^^^^^^^^^^^^^^^
-/home/justin/Haskell/loop/src/Dodge/Combine.hs:11:1-28: warning: [-Wunused-imports]
-    The import of ‘Data.Map.Merge.Strict’ is redundant
+6 | import Dodge.Module.Info
+  | ^^^^^^^^^^^^^^^^^^^^^^^^
+/home/justin/Haskell/loop/src/Dodge/Item/Info.hs:8:1-17: warning: [-Wunused-imports]
+    The import of ‘StringHelp’ is redundant
+  |
+8 | import StringHelp
+  | ^^^^^^^^^^^^^^^^^
+/home/justin/Haskell/loop/src/Dodge/Data/Item/Combine.hs:12:1-37: warning: [-Wunused-imports]
+    The qualified import of ‘Data.Map.Strict’ is redundant
    |
-11 | import Data.Map.Merge.Strict
-   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-/home/justin/Haskell/loop/src/Dodge/Combine.hs:13:1-17: warning: [-Wunused-imports]
-    The import of ‘Data.Maybe’ is redundant
+12 | import qualified Data.Map.Strict as M
+   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+/home/justin/Haskell/loop/src/Dodge/Data/Item/Combine.hs:15:1-38: warning: [-Wunused-imports]
+    The import of ‘Dodge.Data.Item.Use.Consumption’ is redundant
    |
-13 | import Data.Maybe
+15 | import Dodge.Data.Item.Use.Consumption
+   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+/home/justin/Haskell/loop/src/Dodge/Module/Info.hs:8:1-17: warning: [-Wunused-top-binds]
+    Defined but not used: ‘displayBulletBody’
+  |
+8 | displayBulletBody be = case be of
+  | ^^^^^^^^^^^^^^^^^
+/home/justin/Haskell/loop/src/Dodge/Module/Info.hs:14:1-20: warning: [-Wunused-top-binds]
+    Defined but not used: ‘displayBulletPayload’
+   |
+14 | displayBulletPayload x = case x of
+   | ^^^^^^^^^^^^^^^^^^^^
+/home/justin/Haskell/loop/src/Dodge/Module/Info.hs:22:1-21: warning: [-Wunused-top-binds]
+    Defined but not used: ‘displayEnergyBallType’
+   |
+22 | displayEnergyBallType ebt = case ebt of
+   | ^^^^^^^^^^^^^^^^^^^^^
+/home/justin/Haskell/loop/src/Dodge/Module/Info.hs:29:1-17: warning: [-Wunused-top-binds]
+    Defined but not used: ‘displayBulletTraj’
+   |
+29 | displayBulletTraj x = case x of
    | ^^^^^^^^^^^^^^^^^
-/home/justin/Haskell/loop/src/Dodge/Combine.hs:21:1-19: warning: [-Wunused-imports]
-    The import of ‘Dodge.Module’ is redundant
-   |
-21 | import Dodge.Module
-   | ^^^^^^^^^^^^^^^^^^^
-/home/justin/Haskell/loop/src/Dodge/Combine.hs:64:5-7: warning: [-Wunused-matches]
-    Defined but not used: ‘inv’
-   |
-64 | cmm inv (is, itm) = (is, ([], itm))
-   |     ^^^
-/home/justin/Haskell/loop/src/Dodge/Item/Display.hs:16:1-19: warning: [-Wunused-imports]
-    The import of ‘Dodge.Module’ is redundant
-   |
-16 | import Dodge.Module
-   | ^^^^^^^^^^^^^^^^^^^
-/home/justin/Haskell/loop/src/Dodge/Item/SlotsTaken.hs:7:1-19: warning: [-Wunused-imports]
-    The import of ‘Dodge.Module’ is redundant
-  |
-7 | import Dodge.Module
-  | ^^^^^^^^^^^^^^^^^^^
 /home/justin/Haskell/loop/src/Dodge/Module.hs:7:1-37: warning: [-Wunused-imports]
     The qualified import of ‘Data.Map.Strict’ is redundant
   |
@@ -53,31 +58,26 @@
   |
 9 | import Dodge.Module.Info
   | ^^^^^^^^^^^^^^^^^^^^^^^^
-/home/justin/Haskell/loop/src/Dodge/Combine/Combinations.hs:226:1-15: warning: [-Wunused-top-binds]
-    Defined but not used: ‘homingLaunchers’
-    |
-226 | homingLaunchers = launcher : [launcherX i | i <- [2 .. 10]]
-    | ^^^^^^^^^^^^^^^
-/home/justin/Haskell/loop/src/Dodge/Combine/Combinations.hs:241:1-15: warning: [-Wunused-top-binds]
-    Defined but not used: ‘bulletMagazines’
-    |
-241 | bulletMagazines =
-    | ^^^^^^^^^^^^^^^
+/home/justin/Haskell/loop/src/Dodge/Item/SlotsTaken.hs:7:1-19: warning: [-Wunused-imports]
+    The import of ‘Dodge.Module’ is redundant
+  |
+7 | import Dodge.Module
+  | ^^^^^^^^^^^^^^^^^^^
 /home/justin/Haskell/loop/src/Dodge/Item/Held/BatteryGuns.hs:9:1-37: warning: [-Wunused-imports]
     The qualified import of ‘Data.Map.Strict’ is redundant
   |
 9 | import qualified Data.Map.Strict as M
   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-/home/justin/Haskell/loop/src/Dodge/Item/Info.hs:4:1-37: warning: [-Wunused-imports]
-    The qualified import of ‘Data.Map.Strict’ is redundant
-  |
-4 | import qualified Data.Map.Strict as M
-  | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 /home/justin/Haskell/loop/src/Dodge/Item/Draw/SPic.hs:8:1-37: warning: [-Wunused-imports]
     The qualified import of ‘Data.Map.Strict’ is redundant
   |
 8 | import qualified Data.Map.Strict as M
   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+/home/justin/Haskell/loop/src/Dodge/Item/Display.hs:16:1-19: warning: [-Wunused-imports]
+    The import of ‘Dodge.Module’ is redundant
+   |
+16 | import Dodge.Module
+   | ^^^^^^^^^^^^^^^^^^^
 /home/justin/Haskell/loop/src/Dodge/Combine/Module.hs:3:1-20: warning: [-Wunused-imports]
     The import of ‘Data.Foldable’ is redundant
   |
@@ -108,8 +108,3 @@
   |
 8 | import LensHelp
   | ^^^^^^^^^^^^^^^
-/home/justin/Haskell/loop/src/Dodge/Data/Item/Combine.hs:12:1-37: warning: [-Wunused-imports]
-    The qualified import of ‘Data.Map.Strict’ is redundant
-   |
-12 | import qualified Data.Map.Strict as M
-   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^