Refactor, try to limit dependencies

src/Dodge/Combine/Trie.hs

@@ -1,19 +1,16 @@
 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)
+import Dodge.Combine.Combinations
+import Dodge.Data.Item
+import SimpleTrie
+import Data.Foldable
 
-combinationsTrie :: Trie (ItAmount,ItemBaseType) Item
+combinationsTrie :: Trie (ItAmount, ItemBaseType) Item
 {-# INLINE combinationsTrie #-}
-combinationsTrie = foldr 
-    (uncurry insertInTrie . first sort) 
-    emptyTrie
-    itemCombinations
+combinationsTrie =
+    foldl'
+        (flip $ uncurry insertInTrie . first sort)
+        emptyTrie
+        itemCombinations