amazon-emailer-client-snap 0.1.0.0 → 0.1.1.0

raw patch · 2 files changed

+25/−6 lines, 2 files

Files

• amazon-emailer-client-snap.cabal +1/−1
• src/Network/AmazonEmailer/Client/Snap.hs +24/−5

@@ -1,5 +1,5 @@ name:                amazon-emailer-client-snap-version:             0.1.0.0+version:             0.1.1.0 synopsis:            Client library for amazon-emailer daemon homepage:            https://github.com/dbp/amazon-emailer-client-snap license:             BSD3

@@ -20,28 +20,47 @@ -- | Sends a single plain text message sendMessage :: HasPostgres (Handler b a) => Email -> Handler b a () sendMessage e@(Email to from fromName subj body) =+  void $ execute "insert into amazon_email_queue (to_addr, from_addr, from_name, subject, body) values (?,?,?,?,?)" (to, from, fromName, subj, body)++-- | Sends a single plain text message, writing it out to the stdout.+sendMessageVerbose :: HasPostgres (Handler b a) => Email -> Handler b a ()+sendMessageVerbose e@(Email to from fromName subj body) =   do liftIO $ print e-     void $ execute "insert into amazon_email_queue (to_addr, from_addr, from_name, subject, body) values (?,?,?,?,?)" (to, from, fromName, subj, body)+     sendMessage e  -- | Sends a single html message sendMessageHtml :: HasPostgres (Handler b a) => Email -> Handler b a () sendMessageHtml e@(Email to from fromName subj body) =-  do liftIO $ print e-     void $ execute "insert into amazon_email_queue (to_addr, from_addr, from_name, subject, body, html) values (?,?,?,?,?, true)" (to, from, fromName, subj, body)+  void $ execute "insert into amazon_email_queue (to_addr, from_addr, from_name, subject, body, html) values (?,?,?,?,?, true)" (to, from, fromName, subj, body) +-- | Sends a single html message, writing it out to the stdout+sendMessageHtmlVerbose :: HasPostgres (Handler b a) => Email -> Handler b a ()+sendMessageHtmlVerbose e@(Email to from fromName subj body) =+  do liftIO $ print e+     sendMessageHtml e  -- | Sends many plain text messages sendMessages :: HasPostgres (Handler b a) => [Email] -> Handler b a () sendMessages es = do-  liftIO $ putStrLn $ "Sending " ++ show (length es) ++ " messages."   executeMany "insert into amazon_email_queue (to_addr,from_addr,from_name,subject,body) values (?,?,?,?,?)"     (map (\(Email to from fromName subj body) -> (to,from,fromName,subj,body)) es)   return () +-- | Sends many plain text messages, logging the result to stdout+sendMessagesVerbose :: HasPostgres (Handler b a) => [Email] -> Handler b a ()+sendMessagesVerbose es = do+  liftIO $ putStrLn $ "Sending " ++ show (length es) ++ " messages."+  sendMessages es+ -- | Sends many html messages sendMessagesHtml :: HasPostgres (Handler b a) => [Email] -> Handler b a () sendMessagesHtml es = do-  liftIO $ putStrLn $ "Sending " ++ show (length es) ++ " messages."   executeMany "insert into amazon_email_queue (to_addr,from_addr,from_name,subject,body,html) values (?,?,?,?,?,?, true)"     (map (\(Email to from fromName subj body) -> (to,from,fromName,subj,body)) es)   return ()++-- | Sends many html messages, logging the result to stdout+sendMessagesHtmlVerbose :: HasPostgres (Handler b a) => [Email] -> Handler b a ()+sendMessagesHtmlVerbose es = do+  liftIO $ putStrLn $ "Sending " ++ show (length es) ++ " messages."+  sendMessagesHtml es