From b03f51f3a363f861f9d5de30ec6a337fec316383 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Fri, 21 May 2021 09:16:00 +0200 Subject: Initial --- Pretty.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 Pretty.hs (limited to 'Pretty.hs') diff --git a/Pretty.hs b/Pretty.hs new file mode 100644 index 0000000..a5b65a6 --- /dev/null +++ b/Pretty.hs @@ -0,0 +1,12 @@ +module Pretty where + +import qualified Data.Text.Lazy.Builder as B +import Data.Text.Lazy.Builder (Builder) +import Data.Text.Lazy (Text) + + +class Pretty a where + pretty' :: a -> Builder + + pretty :: a -> Text + pretty = B.toLazyText . pretty' -- cgit v1.2.3-70-g09d2