@@ -16,6 +16,6 @@ instance Pretty Literal where
16 case literal of
16 case literal of
17 IntNum n -> PP.int n
17 IntNum n -> PP.int n
18 FloatNum n -> PP.double n
18 FloatNum n -> PP.double n
19− Chr c -> PP.quotes (PP.char c)
19+ Chr c -> PP.text . show $ c
20− Str s -> PP.text (show s)
20+ Str s -> PP.text . show $ s
21 Boolean bool -> PP.text (show bool)
21 Boolean bool -> PP.text (show bool)