summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormaerwald <>2019-06-11 08:58:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2019-06-11 08:58:00 (GMT)
commitbf6d1c94fbfa9ca8534c9db478ef4f18e6c8e56b (patch)
tree3c21319e58c39a0fe4e73dfd8a831e6d3cd97b7f
parent2b60d954a5cf867a0ea89c9f83d2029844989a52 (diff)
version 0.0.3HEAD0.0.3master
-rw-r--r--docusign-client.cabal5
-rw-r--r--src/DocuSign/Client.hs4
2 files changed, 5 insertions, 4 deletions
diff --git a/docusign-client.cabal b/docusign-client.cabal
index 79aa3d9..918b96d 100644
--- a/docusign-client.cabal
+++ b/docusign-client.cabal
@@ -1,5 +1,5 @@
name: docusign-client
-version: 0.0.2
+version: 0.0.3
synopsis: Client bindings for the DocuSign API
description: DocuSign is an electronic signature technology and digital transaction
management. This is the client API.
@@ -39,7 +39,8 @@ library
, http-client
, http-client-tls
, http-types
- , servant-client
+ , servant-client >= 0.16
+ , servant-client-core >= 0.16
, text
, uuid
default-language: Haskell2010
diff --git a/src/DocuSign/Client.hs b/src/DocuSign/Client.hs
index 009d099..e7166dc 100644
--- a/src/DocuSign/Client.hs
+++ b/src/DocuSign/Client.hs
@@ -32,8 +32,8 @@ import Servant.Client ( BaseUrl (..)
, mkClientEnv
, ClientM
, Scheme (..)
- , ServantError
, runClientM )
+import Servant.Client.Core.ClientError ( ClientError )
import qualified Data.ByteString.Base64 as Base64
import qualified Data.ByteString.Lazy as BL
@@ -118,7 +118,7 @@ docuSignClient = DocuSignClient
, D.recipientViewRequestReturnUrl = Just $ unUri postSigningRedirectionUri
, D.recipientViewRequestUserName = Just recipientName }
-runClient :: C.Config -> ClientM a -> IO (Either ServantError a)
+runClient :: C.Config -> ClientM a -> IO (Either ClientError a)
runClient config client = do
m <- liftIO $ newManager (tlsManagerSettings {managerModifyRequest = addHeaders})
runClientM client $ mkClientEnv m (baseUrlFromConfig config)