@@ -142,10 +142,14 @@ literals = mkPattern' match
142142 match _ = mzero
143143
144144 encodeChar :: Char -> String
145− encodeChar '"' = "\\\""
146− encodeChar '\\' = "\\\\"
147− encodeChar '\r' = "\\r"
145+ encodeChar '\b' = "\\b"
146+ encodeChar '\t' = "\\t"
148147 encodeChar '\n' = "\\n"
148+ encodeChar '\v' = "\\v"
149+ encodeChar '\f' = "\\f"
150+ encodeChar '\r' = "\\r"
151+ encodeChar '"' = "\\\""
152+ encodeChar '\\' = "\\\\"
149153 encodeChar c | fromEnum c > 0xFFF = "\\u" ++ showHex (fromEnum c) ""
150154 encodeChar c | fromEnum c > 0xFF = "\\u0" ++ showHex (fromEnum c) ""
151155 encodeChar c = [c]