ditt o datt

This commit is contained in:
aarne
2004-04-23 13:45:07 +00:00
parent 2e0c510285
commit 233d6910e4
5 changed files with 9 additions and 5 deletions

View File

@@ -61,7 +61,7 @@ instance Print Char where
prtList s = ["\"" ++ concatMap mkEsc s ++ "\""]
mkEsc s = case s of
_ | elem s "\\\"'" -> '\\':[s]
_ | elem s "\\\"" -> '\\':[s]
'\n' -> "\\n"
'\t' -> "\\t"
_ -> [s]