A library for accessing the v3 SendGrid API in Haskell.
{-# LANGUAGE OverloadedStrings #-}
import Data.List.NonEmpty (fromList)
import Data.Text (Text)
import Network.SendGridV3.Api
import Control.Lens ((^.))
import Network.Wreq (responseStatus, statusCode)
sendGridApiKey :: Text
sendGridApiKey = "SG..."
testMail :: Mail () ()
testMail =
let to = personalization $ fromList [MailAddress "[email protected]" "John Doe"]
from = MailAddress "[email protected]" "Jane Smith"
subject = "Email Subject"
content = fromList [mailContentText "Example Content"]
in mail [to] from subject $ Just content
main :: IO ()
main = do
sendgridSettings <- mkSendGridSettings sendGridApiKey
-- Send an email, overriding options as needed
eResponse <- sendMail sendgridSettings (testMail { _mailSendAt = Just 1516468000 })
case eResponse of
Left httpException -> error $ show httpException
Right response -> print (response ^. responseStatus . statusCode)
echo "export SENDGRID_API_KEY='SG.YOURKEY'" > sendgrid.env
echo "export SENDGRID_TEST_MAIL='[email protected]' >> sendgrid.env
source ./sendgrid.env