module Network.Api.Postmark.Settings where
import Data.Text
data PostmarkSettings =
PostmarkSettings {
apiUrl :: Text
, apiToken :: Text
} deriving (Eq, Show)
postmarkTestToken :: Text
postmarkTestToken = "POSTMARK_API_TEST"
postmarkHttpTest :: PostmarkSettings
postmarkHttpTest = postmarkHttp postmarkTestToken
postmarkHttpsTest :: PostmarkSettings
postmarkHttpsTest = postmarkHttps postmarkTestToken
postmarkHttp :: Text -> PostmarkSettings
postmarkHttp = PostmarkSettings "http://api.postmarkapp.com"
postmarkHttps :: Text -> PostmarkSettings
postmarkHttps = PostmarkSettings "https://api.postmarkapp.com"