module Data.Text.Encoding.NonEmpty
(
decodeLatin1,
decodeUtf8,
decodeUtf16LE,
decodeUtf16BE,
decodeUtf32LE,
decodeUtf32BE,
decodeUtf8',
decodeUtf8With,
decodeUtf16LEWith,
decodeUtf16BEWith,
decodeUtf32LEWith,
decodeUtf32BEWith,
streamDecodeUtf8,
streamDecodeUtf8With,
E.Decoding (..),
encodeUtf8,
encodeUtf16LE,
encodeUtf16BE,
encodeUtf32LE,
encodeUtf32BE,
encodeUtf8Builder,
encodeUtf8BuilderEscaped,
)
where
import Data.ByteString (ByteString)
import qualified Data.ByteString.Builder as B
import qualified Data.ByteString.Builder.Prim as BP
import Data.NonEmpty
import qualified Data.Text.Encoding as E
import Data.Text.Encoding.Error (OnDecodeError, UnicodeException)
import Data.Text.NonEmpty
import Data.Word (Word8)
import GHC.Stack
decodeLatin1 :: HasCallStack => NonEmpty ByteString -> NonEmptyStrictText
decodeLatin1 :: NonEmpty ByteString -> NonEmptyStrictText
decodeLatin1 = (ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty ByteString -> Text
E.decodeLatin1
{-# INLINE decodeLatin1 #-}
decodeUtf8With :: HasCallStack => OnDecodeError -> NonEmpty ByteString -> NonEmptyStrictText
decodeUtf8With :: OnDecodeError -> NonEmpty ByteString -> NonEmptyStrictText
decodeUtf8With OnDecodeError
onError = (ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty ((ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText)
-> (ByteString -> Text)
-> NonEmpty ByteString
-> NonEmptyStrictText
forall a b. (a -> b) -> a -> b
$ OnDecodeError -> ByteString -> Text
E.decodeUtf8With OnDecodeError
onError
{-# INLINE decodeUtf8With #-}
streamDecodeUtf8 :: HasCallStack => NonEmpty ByteString -> NonEmpty E.Decoding
streamDecodeUtf8 :: NonEmpty ByteString -> NonEmpty Decoding
streamDecodeUtf8 = (ByteString -> Decoding)
-> NonEmpty ByteString -> NonEmpty Decoding
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty ByteString -> Decoding
E.streamDecodeUtf8
{-# INLINE streamDecodeUtf8 #-}
streamDecodeUtf8With :: HasCallStack => OnDecodeError -> NonEmpty ByteString -> NonEmpty E.Decoding
streamDecodeUtf8With :: OnDecodeError -> NonEmpty ByteString -> NonEmpty Decoding
streamDecodeUtf8With OnDecodeError
onError = (ByteString -> Decoding)
-> NonEmpty ByteString -> NonEmpty Decoding
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty ((ByteString -> Decoding)
-> NonEmpty ByteString -> NonEmpty Decoding)
-> (ByteString -> Decoding)
-> NonEmpty ByteString
-> NonEmpty Decoding
forall a b. (a -> b) -> a -> b
$ OnDecodeError -> ByteString -> Decoding
E.streamDecodeUtf8With OnDecodeError
onError
{-# INLINE streamDecodeUtf8With #-}
decodeUtf8 :: NonEmpty ByteString -> NonEmptyStrictText
decodeUtf8 :: NonEmpty ByteString -> NonEmptyStrictText
decodeUtf8 = (ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty ByteString -> Text
E.decodeUtf8
{-# INLINE decodeUtf8 #-}
decodeUtf8' :: HasCallStack => NonEmpty ByteString -> Either UnicodeException NonEmptyStrictText
decodeUtf8' :: NonEmpty ByteString -> Either UnicodeException NonEmptyStrictText
decodeUtf8' = (Text -> NonEmptyStrictText)
-> Either UnicodeException Text
-> Either UnicodeException NonEmptyStrictText
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap Text -> NonEmptyStrictText
forall a. a -> NonEmpty a
trustedNonEmpty (Either UnicodeException Text
-> Either UnicodeException NonEmptyStrictText)
-> (NonEmpty ByteString -> Either UnicodeException Text)
-> NonEmpty ByteString
-> Either UnicodeException NonEmptyStrictText
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Either UnicodeException Text
E.decodeUtf8' (ByteString -> Either UnicodeException Text)
-> (NonEmpty ByteString -> ByteString)
-> NonEmpty ByteString
-> Either UnicodeException Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. NonEmpty ByteString -> ByteString
forall a. NonEmpty a -> a
getNonEmpty
{-# INLINE decodeUtf8' #-}
encodeUtf8Builder :: NonEmptyStrictText -> NonEmpty B.Builder
encodeUtf8Builder :: NonEmptyStrictText -> NonEmpty Builder
encodeUtf8Builder = (Text -> Builder) -> NonEmptyStrictText -> NonEmpty Builder
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty Text -> Builder
E.encodeUtf8Builder
{-# INLINE encodeUtf8Builder #-}
encodeUtf8BuilderEscaped :: BP.BoundedPrim Word8 -> NonEmptyStrictText -> NonEmpty B.Builder
encodeUtf8BuilderEscaped :: BoundedPrim Word8 -> NonEmptyStrictText -> NonEmpty Builder
encodeUtf8BuilderEscaped BoundedPrim Word8
be = (Text -> Builder) -> NonEmptyStrictText -> NonEmpty Builder
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty ((Text -> Builder) -> NonEmptyStrictText -> NonEmpty Builder)
-> (Text -> Builder) -> NonEmptyStrictText -> NonEmpty Builder
forall a b. (a -> b) -> a -> b
$ BoundedPrim Word8 -> Text -> Builder
E.encodeUtf8BuilderEscaped BoundedPrim Word8
be
{-# INLINE encodeUtf8BuilderEscaped #-}
encodeUtf8 :: NonEmptyStrictText -> NonEmpty ByteString
encodeUtf8 :: NonEmptyStrictText -> NonEmpty ByteString
encodeUtf8 = (Text -> ByteString) -> NonEmptyStrictText -> NonEmpty ByteString
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty Text -> ByteString
E.encodeUtf8
{-# INLINE encodeUtf8 #-}
decodeUtf16LEWith :: OnDecodeError -> NonEmpty ByteString -> NonEmptyStrictText
decodeUtf16LEWith :: OnDecodeError -> NonEmpty ByteString -> NonEmptyStrictText
decodeUtf16LEWith OnDecodeError
onError = (ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty ((ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText)
-> (ByteString -> Text)
-> NonEmpty ByteString
-> NonEmptyStrictText
forall a b. (a -> b) -> a -> b
$ OnDecodeError -> ByteString -> Text
E.decodeUtf16LEWith OnDecodeError
onError
{-# INLINE decodeUtf16LEWith #-}
decodeUtf16LE :: NonEmpty ByteString -> NonEmptyStrictText
decodeUtf16LE :: NonEmpty ByteString -> NonEmptyStrictText
decodeUtf16LE = (ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty ByteString -> Text
E.decodeUtf16LE
{-# INLINE decodeUtf16LE #-}
decodeUtf16BEWith :: OnDecodeError -> NonEmpty ByteString -> NonEmptyStrictText
decodeUtf16BEWith :: OnDecodeError -> NonEmpty ByteString -> NonEmptyStrictText
decodeUtf16BEWith OnDecodeError
onError = (ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty ((ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText)
-> (ByteString -> Text)
-> NonEmpty ByteString
-> NonEmptyStrictText
forall a b. (a -> b) -> a -> b
$ OnDecodeError -> ByteString -> Text
E.decodeUtf16BEWith OnDecodeError
onError
{-# INLINE decodeUtf16BEWith #-}
decodeUtf16BE :: NonEmpty ByteString -> NonEmptyStrictText
decodeUtf16BE :: NonEmpty ByteString -> NonEmptyStrictText
decodeUtf16BE = (ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty ByteString -> Text
E.decodeUtf16BE
{-# INLINE decodeUtf16BE #-}
encodeUtf16LE :: NonEmptyStrictText -> NonEmpty ByteString
encodeUtf16LE :: NonEmptyStrictText -> NonEmpty ByteString
encodeUtf16LE = (Text -> ByteString) -> NonEmptyStrictText -> NonEmpty ByteString
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty Text -> ByteString
E.encodeUtf16LE
{-# INLINE encodeUtf16LE #-}
encodeUtf16BE :: NonEmptyStrictText -> NonEmpty ByteString
encodeUtf16BE :: NonEmptyStrictText -> NonEmpty ByteString
encodeUtf16BE = (Text -> ByteString) -> NonEmptyStrictText -> NonEmpty ByteString
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty Text -> ByteString
E.encodeUtf16BE
{-# INLINE encodeUtf16BE #-}
decodeUtf32LEWith :: OnDecodeError -> NonEmpty ByteString -> NonEmptyStrictText
decodeUtf32LEWith :: OnDecodeError -> NonEmpty ByteString -> NonEmptyStrictText
decodeUtf32LEWith OnDecodeError
onError = (ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty ((ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText)
-> (ByteString -> Text)
-> NonEmpty ByteString
-> NonEmptyStrictText
forall a b. (a -> b) -> a -> b
$ OnDecodeError -> ByteString -> Text
E.decodeUtf32LEWith OnDecodeError
onError
{-# INLINE decodeUtf32LEWith #-}
decodeUtf32LE :: NonEmpty ByteString -> NonEmptyStrictText
decodeUtf32LE :: NonEmpty ByteString -> NonEmptyStrictText
decodeUtf32LE = (ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty ByteString -> Text
E.decodeUtf32LE
{-# INLINE decodeUtf32LE #-}
decodeUtf32BEWith :: OnDecodeError -> NonEmpty ByteString -> NonEmptyStrictText
decodeUtf32BEWith :: OnDecodeError -> NonEmpty ByteString -> NonEmptyStrictText
decodeUtf32BEWith OnDecodeError
onError = (ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty ((ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText)
-> (ByteString -> Text)
-> NonEmpty ByteString
-> NonEmptyStrictText
forall a b. (a -> b) -> a -> b
$ OnDecodeError -> ByteString -> Text
E.decodeUtf32BEWith OnDecodeError
onError
{-# INLINE decodeUtf32BEWith #-}
decodeUtf32BE :: NonEmpty ByteString -> NonEmptyStrictText
decodeUtf32BE :: NonEmpty ByteString -> NonEmptyStrictText
decodeUtf32BE = (ByteString -> Text) -> NonEmpty ByteString -> NonEmptyStrictText
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty ByteString -> Text
E.decodeUtf32BE
{-# INLINE decodeUtf32BE #-}
encodeUtf32LE :: NonEmptyStrictText -> NonEmpty ByteString
encodeUtf32LE :: NonEmptyStrictText -> NonEmpty ByteString
encodeUtf32LE = (Text -> ByteString) -> NonEmptyStrictText -> NonEmpty ByteString
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty Text -> ByteString
E.encodeUtf32LE
{-# INLINE encodeUtf32LE #-}
encodeUtf32BE :: NonEmptyStrictText -> NonEmpty ByteString
encodeUtf32BE :: NonEmptyStrictText -> NonEmpty ByteString
encodeUtf32BE = (Text -> ByteString) -> NonEmptyStrictText -> NonEmpty ByteString
forall a b. (a -> b) -> NonEmpty a -> NonEmpty b
overNonEmpty Text -> ByteString
E.encodeUtf32BE
{-# INLINE encodeUtf32BE #-}