Commit before partial cleanup, continue weapon effect refactor

src/Dodge/Item/Held.hs

@@ -46,7 +46,7 @@ itemFromHeldType ht = case ht of
     AMR -> amr
     AUTOAMR -> autoAmr
     SNIPERRIFLE -> sniperRifle
-    MACHINEGUN -> machineGun
+--    MACHINEGUN -> machineGun
     FLAMESPITTER -> flameSpitter
     FLAMETHROWER -> flameThrower
     FLAMETORRENT -> flameTorrent
@@ -56,8 +56,8 @@ itemFromHeldType ht = case ht of
     TESLAGUN -> teslaGun
     LASGUN -> lasGun
 --    LASCIRCLE -> lasCircle
-    DUALBEAM -> dualBeam
-    LASWIDE i -> lasWide i
+--    DUALBEAM -> dualBeam
+--    LASWIDE i -> lasWide i
     TRACTORGUN -> tractorGun
     LAUNCHER -> launcher
     LAUNCHERX i -> launcherX i