-- Hoogle documentation, generated by Haddock
-- See Hoogle, http://www.haskell.org/hoogle/


-- | Preconfigured email connection pool on top of smtp.
--   
--   Email helper functions with some sane defaults such as a resource pool
--   and cli support
@package mail-pool
@version 2.2.3


-- | SMTP is s an incredibly stable and well supported protocol. Using this
--   rather then API's prevents vendorlocking.
--   
--   This module provides a ready to go connection pool for SMTP. Which has
--   been used in various deployments already.
module Network.Mail.Pool

-- | Send a <a>Mail</a> with help of a connection pool.
sendEmail :: MonadIO m => Pool SMTPConnection -> Mail -> m ()

-- | Construct a connection pool from settings.
smtpPool :: PoolSettings -> IO (Pool SMTPConnection)

-- | Create settings with good defaults from <a>SmtpCred</a>.
defSettings :: SmtpCred -> PoolSettings

-- | Authentication information for the SMTP connection
data SmtpCred
SmtpCred :: String -> String -> String -> PortNumber -> SmtpCred
[_smtpPassword] :: SmtpCred -> String
[_smtpLogin] :: SmtpCred -> String
[_smtpHost] :: SmtpCred -> String
[_smtpPort] :: SmtpCred -> PortNumber

-- | This allows you to override the default settings from
--   <a>defSettings</a>
data PoolSettings
PoolSettings :: SmtpCred -> (SmtpCred -> IO SMTPConnection) -> Int -> NominalDiffTime -> Int -> PoolSettings

-- | credentials for smtp connection
[_poolCred] :: PoolSettings -> SmtpCred

-- | allows overriding of the opening function, for example
--   <a>openPlain</a> or <a>openTls</a>
[_poolConnf] :: PoolSettings -> SmtpCred -> IO SMTPConnection

-- | stripes, see docs:
--   <a>https://hackage.haskell.org/package/resource-pool-0.2.3.2/docs/Data-Pool.html</a>
[_poolStripes] :: PoolSettings -> Int

-- | specify how long connections are kept open.
[_poolUnused] :: PoolSettings -> NominalDiffTime

-- | how many connections per stripe.
[_poolStripeMax] :: PoolSettings -> Int
openTls :: SmtpCred -> IO SMTPConnection
openPlain :: SmtpCred -> IO SMTPConnection
openTls' :: Settings -> SmtpCred -> IO SMTPConnection
emailOptions :: Parser SmtpCred
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

-- | Failed to authetnicate with some upstream service (smtp for example)
data ServiceAuthFailure a
instance GHC.Show.Show Network.Mail.Pool.SmtpCred
instance (Data.Typeable.Internal.Typeable a, GHC.Show.Show a) => GHC.Exception.Type.Exception (Network.Mail.Pool.ServiceAuthFailure a)
instance GHC.Show.Show a => GHC.Show.Show (Network.Mail.Pool.ServiceAuthFailure a)
instance Data.Aeson.Types.FromJSON.FromJSON Network.Mail.Pool.SmtpCred