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