warnings

Data/Trie.hs

@@ -13,9 +13,10 @@ empty = Trie False Map.empty
 
 -- | Insert a new string into the trie.
 insert :: String -> Trie -> Trie
-insert []     (Trie b m) = Trie True m
+insert []     (Trie _ m) = Trie True m
 insert (x:xs) (Trie b m) = Trie b $ Map.alter (maybe (Just $ fromString xs) (Just . insert xs)) x m
 
+fromString :: String -> Trie
 fromString = foldr (\x xs -> Trie False (Map.singleton x xs)) (Trie True Map.empty)
 
 -- | Take a list of String and compress it into a Trie

Yi/Syntax/OnlineTree.hs

@@ -13,7 +13,7 @@ data Tree a = Node a (Tree a) (Tree a)
 
 instance Traversable Tree where
     traverse f (Node x l r) = Node <$> f x <*> traverse f l <*> traverse f r
-    traverse f Leaf = pure Leaf
+    traverse _ Leaf = pure Leaf
 
 instance Foldable Tree where
     foldMap = foldMapDefault

Yi/Tag.hs

@@ -19,8 +19,6 @@ import Data.List (isPrefixOf)
 import System.FilePath (takeFileName, takeDirectory, FilePath, (</>))
 import System.FriendlyPath
 import Data.Map (Map, fromList, lookup, keys)
-import Control.Monad (liftM)
-
 
 import qualified Data.Trie as Trie