{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
module DocuSign.Client.Types.Conversion where
import DocuSign.Client.Types
import Data.Text ( Text )
import qualified Data.Text as T
import qualified Data.UUID as U
class Convert a b where
convert :: a -> b
instance Convert AccountId Text where
convert = T.pack . show . unAccountId
instance Convert DocumentId Text where
convert = T.pack . show . unDocumentId
instance Convert EnvelopeId Text where
convert = U.toText . unEnvelopeId