Text.hs

{- |
Module      :  ELynx.Tools.Text
Copyright   :  (c) Dominik Schrempf 2019
License     :  GPL-3

Maintainer  :  dominik.schrempf@gmail.com
Stability   :  unstable
Portability :  portable

Creation date: Thu Feb 14 13:24:53 2019.

indispensable tools for ByteString handling :).

-}

module ELynx.Tools.Text
  (
    -- * Text handling.
    tShow
  , fromBs
  ) where

import           Data.ByteString.Lazy    (ByteString)
import           Data.Text               (Text, pack)
import           Data.Text.Lazy          (toStrict)
import           Data.Text.Lazy.Encoding (decodeUtf8)

-- | Conversion to 'Text' from showable values.
tShow :: Show a => a -> Text
tShow = pack . show

-- | Conversion to 'Text' from bytestring.
fromBs :: ByteString -> Text
fromBs = toStrict . decodeUtf8