Fix Char literal printing bug.

This commit is contained in:
Max New 2014-01-07 15:52:19 -06:00
parent 5ea3ec7f80
commit cca69cf8e7

View file

@ -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)