txt-0.0.0.0: Data/Text.hs

module Data.Text where

import Data.Bytestring
import Data.Bytestring.UTF8
import qualified Data.String as S

newtype Text = Text ByteString
  deriving (Eq, Ord, Semigroup, Monoid)

instance S.IsString Text where fromString = fromString
instance Read Text where readPrec = fromString <$> readPrec
instance Show Text where showsPrec n = showsPrec n . toString