Cleanup combining code, flatten modules

src/Dodge/Combine/Graph.hs

@@ -52,7 +52,7 @@ maxShowX = \case
     _ -> Nothing
 
 itemCombinationsEdges :: [(CombNode,CombNode,Int)]
-itemCombinationsEdges = concatMap (f . over _2 (_itType)) itemCombinations
+itemCombinationsEdges = concatMap (f . over _2 _itType) itemCombinations
 --itemCombinationsEdges = concatMap (f . over _2 (_iyBase . _itType)) bulletCombinations
   where
     f (abts,bt) 

src/Dodge/Combine/Trie.hs

@@ -1,25 +0,0 @@
-module Dodge.Combine.Trie 
-    ( combinationsTrie
-    ) where
-
-import Data.Bifunctor
-import Data.List (sort)
-import Dodge.Combine.Combinations
-import Dodge.Data.Item
-import SimpleTrie
-import Data.Foldable
-
---flatCombinationsTrie :: Trie ItemType Item
---{-# INLINE flatCombinationsTrie #-}
---flatCombinationsTrie = foldl'
---    (flip $ uncurry insertInTrie . first sort)
---    emptyTrie
---    flatItemCombinations
-
-combinationsTrie :: Trie (ItAmount, ItemType) Item
-{-# INLINE combinationsTrie #-}
-combinationsTrie =
-    foldl'
-        (flip $ uncurry insertInTrie . first sort)
-        emptyTrie
-        itemCombinations