Mid implementation of external ammo sources

src/Dodge/Combine/Combinations.hs

@@ -5,6 +5,7 @@ module Dodge.Combine.Combinations
     , bulletWeapons
     ) where
 
+import Dodge.Item.Ammo
 import Dodge.Data.Item
 import Dodge.Item
 import LensHelp
@@ -35,12 +36,19 @@ hatCombinations =
     po xs it = (map o xs, it)
     o = (1,)
 
+magazineCombinations :: [([(ItAmount,ItemBaseType)],Item)]
+magazineCombinations = 
+    [ po [CRAFT TIN, CRAFT SPRING] tinMag ]
+  where
+    po xs it = (map o xs, it)
+    o = (1,)
 
 itemCombinations :: [([(ItAmount, ItemBaseType)], Item)]
 itemCombinations =
     watchCombinations ++
     backpackCombinations ++
     hatCombinations ++
+    magazineCombinations ++
     [ po [CRAFT PIPE, CRAFT HARDWARE] (bangStick 1)
     , po [HELD (BANGSTICK 1), CRAFT TIN] pistol
     , po [HELD PISTOL, CRAFT SPRING] autoPistol