Fix Char literal printing bug.
commitcca69cf8e72c494ab32b09aae1a08ad58d8ef9f6
authorMax New <maxsnew@gmail.com>
dateTue 7 Jan 2014, 15:52 (13 years ago)
parent5ea3ec7
compiler/SourceSyntax/Literal.hs+2−2
@@ -16,6 +16,6 @@ instance Pretty Literal where
1616 case literal of
1717 IntNum n -> PP.int n
1818 FloatNum n -> PP.double n
19− Chr c -> PP.quotes (PP.char c)
20− Str s -> PP.text (show s)
19+ Chr c -> PP.text . show $ c
20+ Str s -> PP.text . show $ s
2121 Boolean bool -> PP.text (show bool)