@@ -166,6 +166,7 @@ string s = '"' : concatMap encodeChar s ++ "\""
166 encodeChar '\\' = "\\\\"
166 encodeChar '\\' = "\\\\"
167 encodeChar c | fromEnum c > 0xFFF = "\\u" ++ showHex (fromEnum c) ""
167 encodeChar c | fromEnum c > 0xFFF = "\\u" ++ showHex (fromEnum c) ""
168 encodeChar c | fromEnum c > 0xFF = "\\u0" ++ showHex (fromEnum c) ""
168 encodeChar c | fromEnum c > 0xFF = "\\u0" ++ showHex (fromEnum c) ""
169+ encodeChar c | fromEnum c < 0x10 = "\\x0" ++ showHex (fromEnum c) ""
169 encodeChar c | fromEnum c > 0x7E || fromEnum c < 0x20 = "\\x" ++ showHex (fromEnum c) ""
170 encodeChar c | fromEnum c > 0x7E || fromEnum c < 0x20 = "\\x" ++ showHex (fromEnum c) ""
170 encodeChar c = [c]
171 encodeChar c = [c]