escape characters in URLs

src/Network/GemServ.hs

@@ -42,10 +42,10 @@ encodeRequest req =
     authority = reqHost req ++ case reqPort req of
       Just port -> ':' : show port
       Nothing   -> ""
-    path = intercalate "/" $ reqPath req
+    path = intercalate "/" $ map escapeString $ reqPath req
     query = case reqQuery req of
       "" -> ""
-      q  -> '?' : q
+      q  -> '?' : escapeString q
 
 -- | add required escape sequences to a string
 escapeString :: String -> String