Auto generate dot file with base item combinations

src/Dodge/Combine.hs

@@ -7,7 +7,7 @@ module Dodge.Combine
     , toggleCombineInv
     , enterCombineInv
     ) where
-import Dodge.Combine.Combinations
+import Dodge.Combine.Trie
 import Dodge.Base.You
 import Dodge.Data
 import Dodge.Item.Amount
@@ -27,13 +27,7 @@ import qualified Data.IntMap.Strict as IM
 import qualified Data.Map.Strict as M
 --import Data.Map.Merge.Strict
 import Data.Maybe
-import Data.List (scanl',sortOn,sort)
-
-combinationsTrie :: Trie (IcAmount,ItemBaseType) Item
-combinationsTrie = foldr 
-    (uncurry insertInTrie . first sort) 
-    emptyTrie
-    itemCombinations
+import Data.List (scanl',sortOn)
 
 invertInventory :: IM.IntMap Item -> [(ItemBaseType,IcAmount,Int)]
 invertInventory = IM.foldrWithKey