Cleanup, remove records, stop unecessary Aeson compile

src/Dodge/Combine/Combinations.hs

@@ -6,13 +6,14 @@ module Dodge.Combine.Combinations
     , bulletWeapons
     ) where
 
+import Dodge.Data.CombAmount
 import Dodge.Data.Magnet
 import Dodge.Item.Ammo
 import Dodge.Data.Item
 import Dodge.Item
 import LensHelp
 
-watchCombinations :: [([(ItAmount, ItemType)], Item)]
+watchCombinations :: [([(CombAmount, ItemType)], Item)]
 watchCombinations =
     []
 --    [ po [HELD TIMESTOPPER, HELD REWINDER] timeScroller
@@ -23,7 +24,7 @@ watchCombinations =
 --    po xs it = (map o xs, it)
 --    o = (1,)
 
-backpackCombinations :: [([(ItAmount,ItemType)],Item)]
+backpackCombinations :: [([(CombAmount,ItemType)],Item)]
 backpackCombinations = 
     [ po [CRAFT HOSE, CRAFT STEELDRUM] fuelPack
     ]
@@ -39,7 +40,7 @@ backpackCombinations =
 --    po xs it = (map o xs, it)
 --    o = (1,)
 
-magazineCombinations :: [([(ItAmount,ItemType)],Item)]
+magazineCombinations :: [([(CombAmount,ItemType)],Item)]
 magazineCombinations = 
     [ po [CRAFT TIN, CRAFT SPRING] tinMag 
     ]
@@ -50,9 +51,9 @@ magazineCombinations =
 flatItemCombinations :: [([ItemType], Item)]
 flatItemCombinations = map (over _1 (concatMap f)) itemCombinations
   where
-    f (x,it) = replicate (_getItAmount x) it
+    f (x,it) = replicate (_getCombAmount x) it
 
-itemCombinations :: [([(ItAmount, ItemType)], Item)]
+itemCombinations :: [([(CombAmount, ItemType)], Item)]
 itemCombinations =
     watchCombinations ++
     backpackCombinations ++