Fix Char literal printing bug.
This commit is contained in:
parent
5ea3ec7f80
commit
cca69cf8e7
1 changed files with 2 additions and 2 deletions
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue