module Network.API.Mandrill.Messages where
import qualified Data.Text as T
import Data.Time
import Network.API.Mandrill.HTTP
import Network.API.Mandrill.Messages.Types
import Network.API.Mandrill.Settings
import Network.API.Mandrill.Types
import Network.HTTP.Client
send :: MandrillKey
-> MandrillMessage
-> Maybe Bool
-> Maybe T.Text
-> Maybe UTCTime
-> Maybe Manager
-> IO (MandrillResponse [MessagesResponse])
send :: MandrillKey
-> MandrillMessage
-> Maybe Bool
-> Maybe MandrillKey
-> Maybe UTCTime
-> Maybe Manager
-> IO (MandrillResponse [MessagesResponse])
send MandrillKey
k MandrillMessage
msg Maybe Bool
async Maybe MandrillKey
ip_pool Maybe UTCTime
send_at = MandrillCalls
-> MessagesSendRq
-> Maybe Manager
-> IO (MandrillResponse [MessagesResponse])
forall ep a rq.
(MandrillEndpoint ep, FromJSON a, ToJSON rq) =>
ep -> rq -> Maybe Manager -> IO (MandrillResponse a)
toMandrillResponse MandrillCalls
MessagesSend (MandrillKey
-> MandrillMessage
-> Maybe Bool
-> Maybe MandrillKey
-> Maybe UTCTime
-> MessagesSendRq
MessagesSendRq MandrillKey
k MandrillMessage
msg Maybe Bool
async Maybe MandrillKey
ip_pool Maybe UTCTime
send_at)
sendTemplate :: MandrillKey
-> MandrillTemplate
-> [MandrillTemplateContent]
-> MandrillMessage
-> Maybe Bool
-> Maybe T.Text
-> Maybe UTCTime
-> Maybe Manager
-> IO (MandrillResponse [MessagesResponse])
sendTemplate :: MandrillKey
-> MandrillKey
-> [MandrillTemplateContent]
-> MandrillMessage
-> Maybe Bool
-> Maybe MandrillKey
-> Maybe UTCTime
-> Maybe Manager
-> IO (MandrillResponse [MessagesResponse])
sendTemplate MandrillKey
k MandrillKey
template [MandrillTemplateContent]
content MandrillMessage
msg Maybe Bool
async Maybe MandrillKey
ip_pool Maybe UTCTime
send_at = MandrillCalls
-> MessagesSendTemplateRq
-> Maybe Manager
-> IO (MandrillResponse [MessagesResponse])
forall ep a rq.
(MandrillEndpoint ep, FromJSON a, ToJSON rq) =>
ep -> rq -> Maybe Manager -> IO (MandrillResponse a)
toMandrillResponse MandrillCalls
MessagesSendTemplate (MandrillKey
-> MandrillKey
-> [MandrillTemplateContent]
-> MandrillMessage
-> Maybe Bool
-> Maybe MandrillKey
-> Maybe UTCTime
-> MessagesSendTemplateRq
MessagesSendTemplateRq MandrillKey
k MandrillKey
template [MandrillTemplateContent]
content MandrillMessage
msg Maybe Bool
async Maybe MandrillKey
ip_pool Maybe UTCTime
send_at)