{-# LANGUAGE DeriveFunctor, FlexibleContexts, FlexibleInstances, OverloadedStrings, TypeSynonymInstances #-}
module Debian.Pretty
( PP(PP, unPP)
, prettyText
, ppPrint
, ppShow
, ppText
, prettyShow
) where
import Data.Text (Text, unpack, pack)
import Text.PrettyPrint.HughesPJClass (Doc, text, empty)
import Distribution.Pretty (Pretty(pretty), prettyShow)
newtype PP a = PP {unPP :: a} deriving (Functor)
instance Pretty (PP Text) where
pretty = text . unpack . unPP
instance Pretty (PP String) where
pretty = text . unPP
instance Pretty (PP a) => Pretty (PP (Maybe a)) where
pretty = maybe empty ppPrint . unPP
prettyText :: Pretty a => a -> Text
prettyText = pack . prettyShow
ppPrint :: Pretty (PP a) => a -> Doc
ppPrint = pretty . PP
ppShow :: Pretty (PP a) => a -> String
ppShow = prettyShow . PP
ppText :: Pretty (PP a) => a -> Text
ppText = pack . prettyShow . PP