GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki 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 81c9833d25
commit dba69cf2fd
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 :: Char -> ShowS
mkEsc s = case s of mkEsc s = case s of
_ | elem s "\\\"'" -> showChar '\\' . showChar s _ | elem s "\\\"" -> showChar '\\' . showChar s -- H (don't escape ')
'\n' -> showString "\\n" '\n' -> showString "\\n"
'\t' -> showString "\\t" '\t' -> showString "\\t"
_ -> showChar s _ -> showChar s