properly encode non-ASCII characters with encodeString

test/Network/GemServSpec.hs

@@ -75,6 +75,7 @@ escapeStringSpec = describe "escapeString" $ mapM_
   --  input,               expected
   [ ( "~foo-bar_baz.quux", "~foo-bar_baz.quux"        )
   , ( "foo:/?=&#%",        "foo%3a%2f%3f%3d%26%23%25" )
+  , ( "foo\xe9",           "foo%c3%a9"                )
   ]
 
 unescapeStringSpec :: Spec