module HaskellWorks.Polysemy.String
  ( ToString(..)
  ) where


import qualified Data.Text                     as T
import qualified Data.Text.Lazy                as LT
import           HaskellWorks.Polysemy.Prelude

class ToString a where
  toString :: a -> String

instance ToString String where
  toString :: String -> String
toString = String -> String
forall a. a -> a
id

instance ToString Text where
  toString :: Text -> String
toString = Text -> String
T.unpack

instance ToString LT.Text where
  toString :: Text -> String
toString = Text -> String
LT.unpack