Skip to content

G
gargantext-ihaskell
Commit 28149eff authored by Andrew Gibiansky's avatar Andrew Gibiansky
Browse files
Options

GHC 7.10 fix due to BBP

parent b7205e86
Show whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
src/IHaskell/Eval/Hoogle.hs
View file @ 28149eff
...@@ -66,7 +66,7 @@ query str = do ...@@ -66,7 +66,7 @@ query str = do
urlEncode :: String -> String urlEncode :: String -> String
urlEncode [] = [] urlEncode [] = []
urlEncode (ch:t) 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)) | not (isAscii ch) = P.foldr escape (urlEncode t) (eightBs [] (P.fromEnum ch))
| otherwise = escape (P.fromEnum ch) (urlEncode t) | otherwise = escape (P.fromEnum ch) (urlEncode t)
where where
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment