parsing escaped strings from command line fixed

2005-12-21 19:46:48 +00:00
parent 82c3a45047
commit d91d8043e0
6 changed files with 36 additions and 22 deletions
--- a/src/GF/Grammar/PrGrammar.hs
+++ b/src/GF/Grammar/PrGrammar.hs
@@ -217,7 +217,7 @@ instance Print Atom where
  prt (AtC f) = prQIdent f
  prt (AtM i) = prt i
  prt (AtV i) = prt i
-  prt (AtL s) = s
+  prt (AtL s) = prQuotedString s
  prt (AtI i) = show i
  prt (AtF i) = show i
  prt_ (AtC (_,f)) = prt f