module Data.Text.Extra
  ( showt
  , showtl
  ) where

import Prelude
import qualified Data.Text as TS
import qualified Data.Text.Lazy as TL

showt :: (Show a) => a -> TS.Text
showt :: a -> Text
showt = String -> Text
TS.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

showtl :: (Show a) => a -> TL.Text
showtl :: a -> Text
showtl = String -> Text
TL.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