Cleanup compiler warnings

src/SimpleTrie.hs

@@ -1,3 +1,4 @@
+{-# OPTIONS -Wno-incomplete-uni-patterns #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 module SimpleTrie where
@@ -29,6 +30,7 @@ lookupTrie :: Ord a => [a] -> Trie a b -> Maybe b
 lookupTrie (k : ks) t = _trieChildren t M.!? k >>= lookupTrie ks
 lookupTrie [] t = _trieMVal t
 
+-- # OPTIONS -Wno-incomplete-uni-patterns #-}
 multiLookupTrie :: Ord a => [a] -> Trie a b -> [([a], b)]
 multiLookupTrie xs t@(Trie my ch)
     | null xs || null ch = maybe [] (\y -> [([], y)]) my