From 60e2890233cfcff2879f07452acd6982ffe34ada Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Sat, 23 Sep 2006 20:33:43 +0000
Subject: [PATCH] Wrap string/byte literals in --parse-tree mode

---
 fco/SExpression.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fco/SExpression.hs b/fco/SExpression.hs
index 197b3c3..2ffdc45 100644
--- a/fco/SExpression.hs
+++ b/fco/SExpression.hs
@@ -128,8 +128,8 @@ nodeToSExp node
       OcLitReal a -> wrap "real-literal" (Item a)
       OcLitInt a -> wrap "integer-literal" (Item a)
       OcLitHex a -> wrap "hex-literal" (Item a)
-      OcLitByte a -> wrap "byte-literal" (Item a)
-      OcLitString a -> wrap "string-literal" (Item a)
+      OcLitByte a -> wrap "byte-literal" (Item ("'" ++ a ++ "'"))
+      OcLitString a -> wrap "string-literal" (Item ("\"" ++ a ++ "\""))
       OcLitArray a -> wrapl "array-literal" (map top a)
       OcTrue -> Item "true"
       OcFalse -> Item "false"