    {-# LANGUAGE CPP #-}

    {- |
       Module     : Data.Convertible.Instances.Text
       Copyright  : Copyright (C) 2011 MailRank, Inc.
       License    : LGPL

       Maintainer : John Goerzen <jgoerzen@complete.org>
       Stability  : provisional
       Portability: portable

    Text instances for Convertible.

    Copyright (C) 2011 MailRank, Inc. <bos@mailrank.com>

    All rights reserved.

    For license and copyright information, see the file COPYRIGHT

    These instances perform conversion between text-like types such as
    Text, ByteString, and the like.

    The instances do /not/ include conversions between ByteString and
    Text or String, since such conversions cannot safely be performed
    without knowing the encoding of the ByteString.
    -}

    module Data.Convertible.Instances.Text()
    where

    import Data.Convertible.Base
    import qualified Data.Text as TS
    import qualified Data.Text.Encoding as TE
    import qualified Data.Text.Lazy as TL
    import qualified Data.Text.Lazy.Builder as TLB
    import qualified Data.Text.Lazy.Encoding as TLE
    import qualified Data.ByteString as BS
    import qualified Data.ByteString.Lazy as BL
    import qualified Data.ByteString.Builder as BB
    import Data.Word (Word8)
    import Data.Foldable

    instance Convertible TS.Text [Char] where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TS.unpack

    instance Convertible TS.Text TL.Text where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TL.fromStrict

    instance Convertible TS.Text TLB.Builder where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TLB.fromText

    instance Convertible TS.Text BS.ByteString where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TE.encodeUtf8

    instance Convertible TS.Text BL.ByteString where
        {-# INLINE safeConvert #-}
        safeConvert = Right . BL.fromStrict . TE.encodeUtf8

    instance Convertible TS.Text BB.Builder where
        {-# INLINE safeConvert #-}
    #if MIN_VERSION_text(1,2,0)
        safeConvert = Right . TE.encodeUtf8Builder
    #else
        safeConvert = safeConvert . TE.encodeUtf8
    #endif

    instance Convertible TL.Text [Char] where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TL.unpack

    instance Convertible TL.Text TS.Text where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TL.toStrict

    instance Convertible TL.Text TLB.Builder where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TLB.fromLazyText

    instance Convertible TL.Text BS.ByteString where
        {-# INLINE safeConvert #-}
        safeConvert = safeConvert . TLE.encodeUtf8

    instance Convertible TL.Text BL.ByteString where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TLE.encodeUtf8

    instance Convertible TL.Text BB.Builder where
        {-# INLINE safeConvert #-}
    #if MIN_VERSION_text(1,2,0)
        safeConvert = Right . TLE.encodeUtf8Builder
    #else
        safeConvert = safeConvert . TLE.encodeUtf8
    #endif

    instance Convertible TLB.Builder [Char] where
        {-# INLINE safeConvert #-}
        safeConvert = safeConvert . TLB.toLazyText

    instance Convertible TLB.Builder TS.Text where
        {-# INLINE safeConvert #-}
        safeConvert = safeConvert . TLB.toLazyText

    instance Convertible TLB.Builder TL.Text where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TLB.toLazyText

    instance Convertible TLB.Builder BS.ByteString where
        {-# INLINE safeConvert #-}
        safeConvert = safeConvert . TLB.toLazyText

    instance Convertible TLB.Builder BL.ByteString where
        {-# INLINE safeConvert #-}
        safeConvert = safeConvert . TLB.toLazyText

    instance Convertible TLB.Builder BB.Builder where
        {-# INLINE safeConvert #-}
        safeConvert = safeConvert . TLB.toLazyText

    instance Convertible BS.ByteString [Word8] where
        {-# INLINE safeConvert #-}
        safeConvert = Right . BS.unpack

    instance Convertible BS.ByteString TS.Text where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TE.decodeUtf8

    instance Convertible BS.ByteString TL.Text where
        {-# INLINE safeConvert #-}
        safeConvert = fmap TL.fromStrict . safeConvert

    instance Convertible BS.ByteString TLB.Builder where
        {-# INLINE safeConvert #-}
        safeConvert = fmap TLB.fromText . safeConvert

    instance Convertible BS.ByteString BL.ByteString where
        {-# INLINE safeConvert #-}
        safeConvert = Right . BL.fromStrict

    instance Convertible BS.ByteString BB.Builder where
        {-# INLINE safeConvert #-}
        safeConvert = Right . BB.byteString

    instance Convertible BL.ByteString [Word8] where
        {-# INLINE safeConvert #-}
        safeConvert = Right . BL.unpack

    instance Convertible BL.ByteString TS.Text where
        {-# INLINE safeConvert #-}
        safeConvert = fmap TL.toStrict . safeConvert

    instance Convertible BL.ByteString TL.Text where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TLE.decodeUtf8

    instance Convertible BL.ByteString TLB.Builder where
        {-# INLINE safeConvert #-}
        safeConvert = fmap TLB.fromLazyText . safeConvert

    instance Convertible BL.ByteString BS.ByteString where
        {-# INLINE safeConvert #-}
        safeConvert = Right . BL.toStrict

    instance Convertible BL.ByteString BB.Builder where
        {-# INLINE safeConvert #-}
        safeConvert = Right . BB.lazyByteString

    instance Convertible [Char] TS.Text where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TS.pack

    instance Convertible [Char] TL.Text where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TL.pack

    instance Convertible [Char] TLB.Builder where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TLB.fromString

    instance Convertible [Word8] BS.ByteString where
        {-# INLINE safeConvert #-}
        safeConvert = Right . BS.pack

    instance Convertible [Word8] BL.ByteString where
        {-# INLINE safeConvert #-}
        safeConvert = Right . BL.pack

    instance Convertible [Word8] BB.Builder where
        {-# INLINE safeConvert #-}
        safeConvert = Right . foldMap BB.word8

    instance Convertible Char TS.Text where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TS.singleton

    instance Convertible Char TL.Text where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TL.singleton

    instance Convertible Char TLB.Builder where
        {-# INLINE safeConvert #-}
        safeConvert = Right . TLB.singleton

    instance Convertible Word8 BS.ByteString where
        {-# INLINE safeConvert #-}
        safeConvert = Right . BS.singleton

    instance Convertible Word8 BL.ByteString where
        {-# INLINE safeConvert #-}
        safeConvert = Right . BL.singleton

    instance Convertible Word8 BB.Builder where
        {-# INLINE safeConvert #-}
        safeConvert = Right . BB.word8