git.iko.soy/elk
on 2297bbf help sign in
elk/src/Type/PrettyPrint.hs
20 lines 320 B history raw
1module Type.PrettyPrint where
3import Text.PrettyPrint
6data ParensWhen = Fn | App | Never
9class PrettyType a where
10 pretty :: ParensWhen -> a -> Doc
13commaSep :: [Doc] -> Doc
14commaSep docs =
15 sep (punctuate comma docs)
18parensIf :: Bool -> Doc -> Doc
19parensIf bool doc =
20 if bool then parens doc else doc