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

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

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