Skip to content

marcelbuesing/sendgrid-v3

Repository files navigation

SendGrid-v3

CIHackage

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)

Test Setup

echo "export SENDGRID_API_KEY='SG.YOURKEY'" > sendgrid.env
echo "export SENDGRID_TEST_MAIL='[email protected]' >> sendgrid.env
source ./sendgrid.env