antiope-core-7.4.4: src/Antiope/Core/Internal/Show.hs

{-# OPTIONS_GHC -fno-warn-redundant-constraints #-}

module Antiope.Core.Internal.Show
  ( tshowNum
  ) where

import Data.Text (Text)

import qualified Data.Text as T

tshowNum :: (Num a, Show a) => a -> Text
tshowNum = T.pack . show