Move towards allowing equipable targeting items

src/Dodge/Combine/Combinations.hs

@@ -27,11 +27,20 @@ backpackCombinations =
     po xs it = (map o xs, it)
     o = (1,)
 
+hatCombinations :: [([(ItAmount,ItemBaseType)],Item)]
+hatCombinations = 
+    [ po [EQUIP HAT, CRAFT (TARGETMODULE tt)] (targetingHat tt) | tt <- [minBound..]
+    ]
+  where
+    po xs it = (map o xs, it)
+    o = (1,)
+
 
 itemCombinations :: [([(ItAmount, ItemBaseType)], Item)]
 itemCombinations =
     watchCombinations ++
     backpackCombinations ++
+    hatCombinations ++
     [ po [CRAFT PIPE, CRAFT HARDWARE] (bangStick 1)
     , po [HELD (BANGSTICK 1), CRAFT TIN] pistol
     , po [HELD PISTOL, CRAFT SPRING] autoPistol