SendGrid test via Haskell

sendgrid-test.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Network.Mail.Mime
import Network.Mail.SMTP

import qualified Data.Text.Lazy as TL

-- Get from e.g. `heroku config`
username = ""
password = ""

recipient = Address (Just "name") "email"

main :: IO ()
main = do
    let mail = simpleMail' recipient from subject body

    sendMailWithLogin' "smtp.sendgrid.net" 587 username password mail

  where
    from = Address (Just "SendGrid Test") "noreply@example.com"
    subject = "Sent via SendGrid using Haskell"
    body = TL.unlines
        [ "Hi there,"
        , ""
        , "Did you get this?"
        , ""
        , "Thanks,"
        , "SendGrid Test"
        ]