module HaskellWorks.CabalCache.Show ( tshow ) where import Data.Text (Text) import qualified Data.Text as T tshow :: Show a => a -> Text tshow :: 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