Continue weapon effect chain work

Start work on using muzzles to determine the effect of the ammo when
loaded

ghcidOutput

@@ -1 +1,38 @@
-All good (617 modules, at 11:03:32)
+/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(44,25)-(322,30): warning: [-Wincomplete-patterns]
+    Pattern match(es) are non-exhaustive
+    In a case alternative: Patterns not matched: MachineGunMod
+   |
+44 | heldEffect effecttype = case effecttype of
+   |                         ^^^^^^^^^^^^^^^^^^...
+/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(487,43)-(500,9): warning: [-Wincomplete-patterns]
+    Pattern match(es) are non-exhaustive
+    In a case alternative:
+        Patterns not matched:
+            MuzzleLaser
+            MuzzleTesla
+            MuzzleTractor
+            MuzzleLauncher
+            ...
+    |
+487 | useLoadedAmmo itm cr (cme,w) (mz,x,mid) = case _mzEffect mz of
+    |                                           ^^^^^^^^^^^^^^^^^^^^...
+/home/justin/Haskell/loop/src/Dodge/Bullet.hs:6:1-30: warning: [-Wunused-imports]
+    The import of ‘Dodge.Data.ComposedItem’ is redundant
+  |
+6 | import Dodge.Data.ComposedItem
+  | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+/home/justin/Haskell/loop/src/Dodge/Bullet.hs:7:1-28: warning: [-Wunused-imports]
+    The import of ‘Dodge.Data.DoubleTree’ is redundant
+  |
+7 | import Dodge.Data.DoubleTree
+  | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+/home/justin/Haskell/loop/src/Dodge/Bullet.hs:13:1-28: warning: [-Wunused-imports]
+    The import of ‘Dodge.Base.Coordinate’ is redundant
+   |
+13 | import Dodge.Base.Coordinate
+   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+/home/justin/Haskell/loop/src/Dodge/Bullet.hs:14:1-29: warning: [-Wunused-imports]
+    The import of ‘Dodge.Creature.HandPos’ is redundant
+   |
+14 | import Dodge.Creature.HandPos
+   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^