git.iko.soy/elk
on 648cbd4 help sign in
elk/compiler/SourceSyntax/PrettyPrint.hs
19 lines 399 B history raw
2module SourceSyntax.PrettyPrint where
4import Text.PrettyPrint
5import SourceSyntax.Location
7class Pretty a where
8 pretty :: a -> Doc
10instance Pretty a => Pretty (Located a) where
11 pretty (L _ _ e) = pretty e
13instance Pretty () where
14 pretty () = empty
16commaCat docs = cat (punctuate comma docs)
17commaSep docs = sep (punctuate comma docs)
19parensIf bool doc = if bool then parens doc else doc