$$ indent ms
$$ text "}"
-staticblock = \ss ->
- text "static" <+> text "{"
- $$ indent ss
- $$ text "}"
-
modifiers mfs = hsep (map modifier mfs)
modifier mf = text $ map toLower (show mf)
literal = \l ->
case l of
{ IntLit i -> text (show i)
- ; CharLit c -> text (show c)
+ ; CharLit c -> text "(char)" <+> text (show c)
; StringLit s -> text ("\"" ++ s ++ "\"") -- strings are already printable
}