    module RIO.Prelude.Text
      ( decodeUtf8Lenient
      , tshow
      ) where

    import Data.ByteString (ByteString)
    import qualified Data.Text                as T
    import Data.Text.Encoding (decodeUtf8With)
    import Data.Text.Encoding.Error (lenientDecode)

    tshow :: Show a => a -> T.Text
    tshow :: forall a. Show a => a -> Text
    tshow = String -> Text
    T.pack (String -> Text) -> (a -> String) -> a -> Text
    forall b c a. (b -> c) -> (a -> b) -> a -> c
    . a -> String
    forall a. Show a => a -> String
    show

    decodeUtf8Lenient :: ByteString -> T.Text
    decodeUtf8Lenient :: ByteString -> Text
    decodeUtf8Lenient = OnDecodeError -> ByteString -> Text
    decodeUtf8With OnDecodeError
    lenientDecode