Cleanup

src/Dodge/Combine/Combinations.hs

@@ -14,13 +14,14 @@ import LensHelp
 
 watchCombinations :: [([(ItAmount, ItemType)], Item)]
 watchCombinations =
-    [ po [HELD TIMESTOPPER, HELD REWINDER] timeScroller
-    , po [CRAFT TIMEMODULE, CRAFT MICROCHIP, CRAFT HARDDRIVE] timeScroller
-    , po [CRAFT TIMEMODULE, CRAFT MICROCHIP, CRAFT RAM] timeScroller
-    ]
-  where
-    po xs it = (map o xs, it)
-    o = (1,)
+    []
+--    [ po [HELD TIMESTOPPER, HELD REWINDER] timeScroller
+--    , po [CRAFT TIMEMODULE, CRAFT MICROCHIP, CRAFT HARDDRIVE] timeScroller
+--    , po [CRAFT TIMEMODULE, CRAFT MICROCHIP, CRAFT RAM] timeScroller
+--    ]
+--  where
+--    po xs it = (map o xs, it)
+--    o = (1,)
 
 backpackCombinations :: [([(ItAmount,ItemType)],Item)]
 backpackCombinations = 
@@ -92,13 +93,13 @@ itemCombinations =
 --           , po [HELD LASGUN, HELD LASGUN, HELD LASGUN, cr HARDWARE] lasCircle
            , p [o $ cr TRANSFORMER, p 2 $ cr CAN] sparkGun
            , p [o (HELD SPARKGUN), p 2 $ cr PIPE] teslaGun
-           , p [o $ cr TELEPORTMODULE, p 2 $ cr MICROCHIP] blinker
+--           , p [o $ cr TELEPORTMODULE, p 2 $ cr MICROCHIP] blinker
            , p [o $ HELD BLINKER, p 2 $ cr MICROCHIP] unsafeBlinker
            , po [cr MAGNET, cr TIN] magShield
            , p [p 2 $ cr PIPE, o $ cr PLATE, o $ cr MOTOR] powerLegs
-           , p [p 4 $ cr CAN] plateCraft
-           , p [p 3 $ cr TIN] plateCraft
-           , p [p 2 $ cr STEELDRUM] plateCraft
+           , p [p 4 $ cr CAN] metalPlate
+           , p [p 3 $ cr TIN] metalPlate
+           , p [p 2 $ cr STEELDRUM] metalPlate
            , p [p 2 $ cr PLATE] flatShield
            , po [cr MICROCHIP, cr PRISM] (makeTypeCraft LIGHTSENSOR)
            , po [cr MICROCHIP, cr MICROPHONE] (makeTypeCraft SOUNDSENSOR)