ditt o datt

This commit is contained in:
aarne
2004-04-23 13:45:07 +00:00
parent 23914ca726
commit 45fa5271d9
8 changed files with 39 additions and 33 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]