pprrText :: (Pretty a) => a -> T.Text
pprrText d = toStrict $ prettyLazyText 80 (ppr d)
pprrText :: (Pretty a) => a -> T.Text
pprrText d = toStrict $ prettyLazyText 80 (ppr d)
pprrText d = toStrict $ prettyLazyText 80 (ppr d)