{-# 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)