Add various capabilities for generating graphs, fixes to lasgun

src/Dodge/Combine/Trie.hs

@@ -0,0 +1,19 @@
+module Dodge.Combine.Trie where
+import Dodge.Combine.Combinations
+import Dodge.Data
+--import Dodge.Combine.Module
+--import Dodge.Combine.Data
+--import Multiset
+import SimpleTrie
+
+import Data.Bifunctor
+--import qualified Data.IntSet as IS
+--import Data.Map.Merge.Strict
+import Data.List (sort)
+
+combinationsTrie :: Trie (IcAmount,ItemBaseType) Item
+{-# INLINE combinationsTrie #-}
+combinationsTrie = foldr 
+    (uncurry insertInTrie . first sort) 
+    emptyTrie
+    itemCombinations