GHC 7.10 fix due to BBP

28149eff · Andrew Gibiansky · b7205e86 · 28149eff
Commit 28149eff authored Apr 07, 2015 by Andrew Gibiansky
Show whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

Hoogle.hs src/IHaskell/Eval/Hoogle.hs +1 -1

No files found.
--- a/src/IHaskell/Eval/Hoogle.hs
+++ b/src/IHaskell/Eval/Hoogle.hs
@@ -66,7 +66,7 @@ query str = do
 urlEncode :: String -> String
 urlEncode [] = []
 urlEncode (ch:t)
-  | (isAscii ch && isAlphaNum ch) || ch `P.elem` "-_.~" = ch : urlEncode t
+  | (isAscii ch && isAlphaNum ch) || ch `P.elem` ("-_.~" :: String) = ch : urlEncode t
  | not (isAscii ch) = P.foldr escape (urlEncode t) (eightBs [] (P.fromEnum ch))
  | otherwise = escape (P.fromEnum ch) (urlEncode t)
  where