msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Do not escape single quotes in strings in PrintGF. This seems to be unmarked hand-hacked behaviour that the old pretty printer had.

Browse Source
This commit is contained in:
bringert
2004-07-22 11:12:27 +00:00
parent 2b1f64eb06
commit 541ef75fb4
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Source/PrintGF.hs
View File

@@ -71,7 +71,7 @@ instance Print Char where
mkEsc :: Char -> ShowS
mkEsc s = case s of
_ | elem s "\\\"'" -> showChar '\\' . showChar s
_ | elem s "\\\"" -> showChar '\\' . showChar s -- H (don't escape ')
'\n' -> showString "\\n"
'\t' -> showString "\\t"
_ -> showChar s