diff options
Diffstat (limited to 'app/Pretty.hs')
-rw-r--r-- | app/Pretty.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/app/Pretty.hs b/app/Pretty.hs index d2988a9..8621a41 100644 --- a/app/Pretty.hs +++ b/app/Pretty.hs @@ -24,6 +24,9 @@ data Doc class Pretty a where pretty :: a -> Doc +instance Pretty Doc where + pretty = id + instance Pretty Char where pretty = pretty . (: []) |