mirror of https://github.com/voidlizard/hbs2
18 lines
349 B
Haskell
18 lines
349 B
Haskell
module HBS2Git.PrettyStuff where
|
|
|
|
import Prettyprinter
|
|
import Prettyprinter.Render.Terminal
|
|
|
|
green :: Doc AnsiStyle -> Doc AnsiStyle
|
|
green = annotate (color Green)
|
|
|
|
yellow :: Doc AnsiStyle -> Doc AnsiStyle
|
|
yellow = annotate (color Yellow)
|
|
|
|
|
|
red :: Doc AnsiStyle -> Doc AnsiStyle
|
|
red = annotate (color Red)
|
|
|
|
section :: Doc ann
|
|
section = line <> line
|