{-# OPTIONS_GHC -fno-warn-orphans #-} module HaskellWorks.Data.Json.Internal.Orphans where import Data.Text import Text.PrettyPrint.ANSI.Leijen hiding ((<$>)) import qualified Data.Text as T instance Pretty Text where pretty :: Text -> Doc pretty Text s = String -> Doc forall a. Pretty a => a -> Doc pretty (Text -> String T.unpack Text s)