summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mailgun.cabal2
-rw-r--r--src/Rackspace/MailGun.hs6
2 files changed, 4 insertions, 4 deletions
diff --git a/mailgun.cabal b/mailgun.cabal
index 614bd47..b1603cf 100644
--- a/mailgun.cabal
+++ b/mailgun.cabal
@@ -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.
diff --git a/src/Rackspace/MailGun.hs b/src/Rackspace/MailGun.hs
index 4e0019b..17e7d8a 100644
--- a/src/Rackspace/MailGun.hs
+++ b/src/Rackspace/MailGun.hs
@@ -11,7 +11,7 @@ module Rackspace.MailGun
) 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 @@ buildBase msg = partText "from" (from msg)
++ 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"