diff options
| author |  Fabian Kirchner <kirchner@posteo.de> | 2024-08-13 10:21:00 +0200 |
|---|---|---|
| committer | Fabian Kirchner <kirchner@posteo.de> | 2024-08-13 10:21:00 +0200 |
| commit | 1083d34c8563d3ce200f2f363ce36b19bf792f6f (patch) | |
| tree | 328a028ee81a0917494094a9c852fca9b4c4dd3e /app/Pretty.hs | |
| parent | 3533c6941bf7a7732a0cf81465e97949c4969be4 (diff) | |
feat: show batteries separately and correct state
Diffstat (limited to 'app/Pretty.hs')
| -rw-r--r-- | app/Pretty.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/app/Pretty.hs b/app/Pretty.hs index 07b3296..7732dae 100644 --- a/app/Pretty.hs +++ b/app/Pretty.hs @@ -14,6 +14,7 @@ module Pretty ) where +import Data.Monoid import Pretty.Color data Doc @@ -24,6 +25,12 @@ data Doc class Pretty a where pretty :: a -> Doc +instance (Monoid Doc) where + mempty = Col [] + +instance (Semigroup Doc) where + a <> b = Col [a, b] + instance Pretty Doc where pretty = id |