hlint

himura · Aug 27, 2014 · 9479643 · 9479643
1 parent 073ebb4
commit 9479643
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Web/Twitter/Conduit/Parameters/TH.hs b/Web/Twitter/Conduit/Parameters/TH.hs
@@ -11,7 +11,7 @@ import Data.Char
 
 snakeToLowerCamel :: String -> String
 snakeToLowerCamel [] = []
-snakeToLowerCamel ('_':[]) = []
+snakeToLowerCamel "_" = []
 snakeToLowerCamel ('_':x:xs) = toUpper x : snakeToLowerCamel xs
 snakeToLowerCamel str = f ++ snakeToLowerCamel next
   where (f, next) = span (/= '_') str