Network.Mail.Pool

pool

smtpPool :: PoolSettings -> IO (Pool SMTPConnection)

data PoolSettings

Constructors

PoolSettings

Fields

• _poolCred :: SmtpCred

  credentials for smtp connection

• _poolConnf :: SmtpCred -> IO SMTPConnection

  smtpcred can't be factored out.

• _poolStripes :: Int

  stripe, see docs, I think I just need 1: https://hackage.haskell.org/package/resource-pool-0.2.3.2/docs/Data-Pool.html

• _poolUnused :: NominalDiffTime

  unused connections are kept open for a minute

• _poolStripeMax :: Int

  max. 10 connections open per stripe

defSettings :: SmtpCred -> PoolSettings

openTls :: SmtpCred -> IO SMTPConnection

openPlain :: SmtpCred -> IO SMTPConnection

openTls' :: Settings -> SmtpCred -> IO SMTPConnection

use pool

sendEmail :: MonadIO m => Pool SMTPConnection -> Mail -> m ()

optparse

data SmtpCred

We use smtp because it's an incredibly stable and well supported protocol this prevents vendorlocking.

Constructors

SmtpCred

Fields

• _smtpPassword :: String
• _smtpLogin :: String
• _smtpHost :: String
• _smtpPort :: PortNumber

Instances

Show SmtpCred

Defined in Network.Mail.Pool

Methods

showsPrec :: Int -> SmtpCred -> ShowS

show :: SmtpCred -> String

showList :: [SmtpCred] -> ShowS

emailOptions :: Parser SmtpCred

lenses

poolCred :: Lens' PoolSettings SmtpCred

poolConnf :: Lens' PoolSettings (SmtpCred -> IO SMTPConnection)

poolStripes :: Lens' PoolSettings Int

poolUnused :: Lens' PoolSettings NominalDiffTime

poolStripeMax :: Lens' PoolSettings Int

smtpHost :: Lens' SmtpCred String

smtpLogin :: Lens' SmtpCred String

smtpPassword :: Lens' SmtpCred String

smtpPort :: Lens' SmtpCred PortNumber

re exports

module Network.HaskellNet.SMTP.SSL

module Network.HaskellNet.SMTP

module Data.Pool