Commit 591e84ab authored by John van Groningen's avatar John van Groningen

fix printing of character escape sequences, add \r

parent 7993c542
......@@ -127,12 +127,13 @@ printChar ch s=:{ps_output}
= {s & ps_output = ps_output}
printCharLiteral '\\' = printChar '\\' $ printChar '\\'
printCharLiteral '\n' = printChar '\\' $ printChar '\n'
printCharLiteral '\t' = printChar '\\' $ printChar '\t'
printCharLiteral '\b' = printChar '\\' $ printChar '\b'
printCharLiteral '\n' = printChar '\\' $ printChar 'n'
printCharLiteral '\t' = printChar '\\' $ printChar 't'
printCharLiteral '\r' = printChar '\\' $ printChar 'r'
printCharLiteral '\b' = printChar '\\' $ printChar 'b'
printCharLiteral '\'' = printChar '\\' $ printChar '\''
printCharLiteral '\"' = printChar '\\' $ printChar '\"'
printCharLiteral '\0' = printChar '\\' $ printChar '\0'
printCharLiteral '\"' = printChar '\\' $ printChar '"'
printCharLiteral '\0' = printChar '\\' $ printChar '0'
printCharLiteral c = printChar c
printString str
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment