diff options
| author | bringert <unknown> | 2004-07-22 11:12:27 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2004-07-22 11:12:27 +0000 |
| commit | 541ef75fb4171707973b15cf612cc5edf20fedcf (patch) | |
| tree | d15eb613c3a96607c12742c4f843aaf5832b52c5 /src/GF/Source/PrintGF.hs | |
| parent | 2b1f64eb06e7a8605df25ea7ef928b3543b32b8e (diff) | |
Do not escape single quotes in strings in PrintGF. This seems to be unmarked hand-hacked behaviour that the old pretty printer had.
Diffstat (limited to 'src/GF/Source/PrintGF.hs')
| -rw-r--r-- | src/GF/Source/PrintGF.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Source/PrintGF.hs b/src/GF/Source/PrintGF.hs index ab069adbd..2774246bf 100644 --- a/src/GF/Source/PrintGF.hs +++ b/src/GF/Source/PrintGF.hs @@ -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 |