urlEncode values out of ASCII range

snapframework · Jun 9, 2015 · dbfc806 · dbfc806
1 parent f1b24eb
commit dbfc806
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Snap/Internal/Parsing.hs b/src/Snap/Internal/Parsing.hs
@@ -383,8 +383,9 @@ urlEncodeBuilder = go mempty
 urlEncodeClean :: Char -> Bool
 urlEncodeClean = toTable f
   where
-    f c = any ($ c) [isAlphaNum, flip elem [ '$', '_', '-', '.', '!'
-                                           , '*' , '\'', '(', ')', ',' ]]
+    f c = any ($ c) [\c -> isAscii c && isAlphaNum c
+                    , flip elem [ '$', '_', '-', '.', '!'
+                                , '*' , '\'', '(', ')', ',' ]]
 
 
 ------------------------------------------------------------------------------