-- TODO: option to pass in TLSParams
-- TODO: run in EitherT.

writeAddress :: Context -> T.Text -> Address -> IO ()
writeAddress ctx cmd Address{..} =
        tlsWriteWait ctx (T.unpack $ cmd <> ":<" <> addressEmail <> ">") "250"
writeAddress :: Context -> T.Text -> Address -> IO ()
writeAddress ctx cmd Address{..} =
        tlsWriteWait ctx (T.unpack $ cmd <> ":<" <> addressEmail <> ">") "250"
writeAddress ctx cmd Address{..} =
        tlsWriteWait ctx (T.unpack $ cmd <> ":<" <> addressEmail <> ">") "250"