From 541ef75fb4171707973b15cf612cc5edf20fedcf Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Thu, 22 Jul 2004 11:12:27 +0000
Subject: [PATCH] Do not escape single quotes in strings in PrintGF. This seems
 to be unmarked hand-hacked behaviour that the old pretty printer had.

---
 src/GF/Source/PrintGF.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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