From cca69cf8e72c494ab32b09aae1a08ad58d8ef9f6 Mon Sep 17 00:00:00 2001
From: Max New <maxsnew@gmail.com>
Date: Tue, 7 Jan 2014 15:52:19 -0600
Subject: [PATCH] Fix Char literal printing bug.

---
 compiler/SourceSyntax/Literal.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/SourceSyntax/Literal.hs b/compiler/SourceSyntax/Literal.hs
index 3bf4207..818f610 100644
--- a/compiler/SourceSyntax/Literal.hs
+++ b/compiler/SourceSyntax/Literal.hs
@@ -16,6 +16,6 @@ instance Pretty Literal where
     case literal of
       IntNum n -> PP.int n
       FloatNum n -> PP.double n
-      Chr c -> PP.quotes (PP.char c)
-      Str s -> PP.text (show s)
+      Chr c -> PP.text . show $ c
+      Str s -> PP.text . show $ s
       Boolean bool -> PP.text (show bool)