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