module Text.Display
( mkDisplayText
, unDisplayText
, mkDt
, unDt
, mkDisplayTextStr
, unDisplayTextStr
, mkDtStr
, unDtStr
, dPrint
, ppShow
, pPrint
, Display(..)
, DisplayText
)
where
import Data.Text (Text)
import qualified Data.Text as Text
import qualified Data.Text.IO as TextIO
import Text.Show.Pretty as Pretty
newtype DisplayText = DisplayText { _fromDisplayText :: Text } deriving (Eq)
instance Show DisplayText where
show displayText = Text.unpack (unDisplayText displayText)
class Display a where
display :: a -> DisplayText
instance (Show a) => Display a where
display a = (DisplayText . Text.pack . Pretty.ppShow) a
mkDisplayText :: Text -> DisplayText
mkDisplayText a = DisplayText a
mkDt :: Text -> DisplayText
mkDt = mkDisplayText
unDisplayText :: DisplayText -> Text
unDisplayText a = _fromDisplayText a
unDt :: DisplayText -> Text
unDt = unDisplayText
mkDisplayTextStr :: String -> DisplayText
mkDisplayTextStr a = mkDisplayText (Text.pack a)
mkDtStr :: String -> DisplayText
mkDtStr = mkDisplayTextStr
unDisplayTextStr :: DisplayText -> String
unDisplayTextStr a = Text.unpack (unDisplayText a)
unDtStr :: DisplayText -> String
unDtStr = unDisplayTextStr
dShow :: Display a => a -> Text
dShow a = unDisplayText (display a)
dPrint :: Display a => a -> IO ()
dPrint a = TextIO.putStrLn (dShow a)