placate -Wall. minor.

nbogie · Mar 24, 2013 · ecbbae0 · ecbbae0
1 parent 72e96d7
commit ecbbae0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Utils.hs b/src/Utils.hs
@@ -4,8 +4,8 @@ import Data.List (nub)
 bool :: a -> a -> Bool -> a
 bool t f b = if b then t else f
 
-remRoot (c1:c2:rest) | c2 `elem` "b#" = rest
-                     | otherwise            = c2:rest
+remRoot (_c1:c2:rest) | c2 `elem` "b#" = rest
+                      | otherwise            = c2:rest
 remRoot _other = [] -- either single char or empty str
 switchRoot newRoot word = newRoot : remRoot word
 -- (map ('A':). Data.List.nub . map remRoot . words) $ readFile "foo"