postmark-0.0.1: src/Network/Api/Postmark/Defaults.hs

{-# LANGUAGE OverloadedStrings #-}
module Network.Api.Postmark.Defaults where

import qualified Data.Map as M
import Data.Text

import Network.Api.Postmark.Data

testKey :: Text
testKey = "POSTMARK_API_TEST"

defaultEmail :: Email
defaultEmail = Email {
    emailFrom = ""
  , emailTo = []
  , emailCc = []
  , emailBcc = []
  , emailSubject = ""
  , emailTag = Nothing
  , emailHtml = Nothing
  , emailText = Nothing
  , emailReplyTo = ""
  , emailHeaders = M.empty
  , emailAttachments = []
  }