module Web.MailChimp.Tutorial
( example
)
where
import System.Environment (getEnv)
import Data.ByteString.Char8 (pack)
import Web.MailChimp
import qualified Data.Text as Text
example :: IO ()
example = do
manager <- makeManager
key <- fmap pack (getEnv "MAILCHIMP_API_KEY")
listId <- fmap Text.pack (getEnv "MAILCHIMP_LIST_ID")
let
AuthClient {..} = makeAuthClientWithKey key
ListMemberClient {..} = makeListMemberClient listId
let
member =
(makeListMemberRequest "sd@sd.com" Pending)
{ listMemberMergeFields = [("FNAME", "Juan")]
}
eitherAdd <- run manager key (addListMember member)
case eitherAdd of
Left err ->
putStrLn $ "Error: " ++ show err
Right msg ->
print msg