mailgun 0.1.0.1 → 0.1.0.2

raw patch · 2 files changed

+4/−4 lines, 2 files

Files

• mailgun.cabal +1/−1
• src/Rackspace/MailGun.hs +3/−3

@@ -1,5 +1,5 @@ name:                mailgun-version:             0.1.0.1+version:             0.1.0.2 synopsis:            Connector to Rackspace's Mailgun Service description:         Allows users to directly access Rackspace's Mailgun service                      without having to work with the underlying REST service.

@@ -11,7 +11,7 @@     ) where  import           Control.Failure-import           Control.Monad.Catch                   (MonadThrow)+import           Control.Monad.Catch                   as C (MonadThrow) import           Control.Monad.IO.Class import           Control.Monad.Trans.Control import           Data.ByteString.Char8                 as BS (ByteString, pack,@@ -64,13 +64,13 @@              ++ partMaybeText "subject" (subject msg)              ++ buildTail msg -sendMessage :: (Failure HttpException m, MonadThrow m, MonadBaseControl IO m, MonadIO m) =>+sendMessage :: (Failure HttpException m, C.MonadThrow m, MonadBaseControl IO m, MonadIO m) =>                 String -> String -> Message -> m (Response LBS.ByteString) sendMessage domain apiKey message = do         withManager $ \manager -> do             sendWith manager domain apiKey message -sendWith :: (Failure HttpException m, MonadThrow m, MonadBaseControl IO m, MonadIO m) =>+sendWith :: (Failure HttpException m, C.MonadThrow m, MonadBaseControl IO m, MonadIO m) =>                 Manager -> String -> String -> Message -> m (Response LBS.ByteString) sendWith manager domain apiKey message = do         initReq <- parseUrl $ baseUrl ++ "/" ++ domain ++ "/messages"