servant-client 0.9.0.1 → 0.9.1

raw patch · 5 files changed

+15/−17 lines, 5 filesdep +base-compatPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependencies added: base-compat

API changes (from Hackage documentation)

- Servant.Client: instance forall k1 (api :: k1) (realm :: GHC.Types.Symbol) usr. Servant.Client.HasClient api => Servant.Client.HasClient (Servant.API.BasicAuth.BasicAuth realm usr Servant.API.Sub.:> api)

- Servant.Client: instance forall k1 (api :: k1). Servant.Client.HasClient api => Servant.Client.HasClient (Data.Vault.Lazy.Vault Servant.API.Sub.:> api)

- Servant.Client: instance forall k1 (api :: k1). Servant.Client.HasClient api => Servant.Client.HasClient (Network.HTTP.Types.Version.HttpVersion Servant.API.Sub.:> api)

- Servant.Client: instance forall k1 (api :: k1). Servant.Client.HasClient api => Servant.Client.HasClient (Servant.API.IsSecure.IsSecure Servant.API.Sub.:> api)

- Servant.Client: instance forall k1 (api :: k1). Servant.Client.HasClient api => Servant.Client.HasClient (Servant.API.RemoteHost.RemoteHost Servant.API.Sub.:> api)

- Servant.Client: instance forall k1 (capture :: GHC.Types.Symbol) a (api :: k1). (GHC.TypeLits.KnownSymbol capture, Web.Internal.HttpApiData.ToHttpApiData a, Servant.Client.HasClient api) => Servant.Client.HasClient (Servant.API.Capture.Capture capture a Servant.API.Sub.:> api)

- Servant.Client: instance forall k1 (capture :: GHC.Types.Symbol) a (sublayout :: k1). (GHC.TypeLits.KnownSymbol capture, Web.Internal.HttpApiData.ToHttpApiData a, Servant.Client.HasClient sublayout) => Servant.Client.HasClient (Servant.API.Capture.CaptureAll capture a Servant.API.Sub.:> sublayout)

- Servant.Client: instance forall k1 (path :: GHC.Types.Symbol) (api :: k1). (GHC.TypeLits.KnownSymbol path, Servant.Client.HasClient api) => Servant.Client.HasClient (path Servant.API.Sub.:> api)

- Servant.Client: instance forall k1 (sym :: GHC.Types.Symbol) (api :: k1). (GHC.TypeLits.KnownSymbol sym, Servant.Client.HasClient api) => Servant.Client.HasClient (Servant.API.QueryParam.QueryFlag sym Servant.API.Sub.:> api)

- Servant.Client: instance forall k1 (sym :: GHC.Types.Symbol) a (api :: k1). (GHC.TypeLits.KnownSymbol sym, Web.Internal.HttpApiData.ToHttpApiData a, Servant.Client.HasClient api) => Servant.Client.HasClient (Servant.API.Header.Header sym a Servant.API.Sub.:> api)

- Servant.Client: instance forall k1 ct a (api :: k1) (cts :: [GHC.Types.*]). (Servant.API.ContentTypes.MimeRender ct a, Servant.Client.HasClient api) => Servant.Client.HasClient (Servant.API.ReqBody.ReqBody (ct : cts) a Servant.API.Sub.:> api)

- Servant.Client: instance forall k1 k (api :: k1) (tag :: k). Servant.Client.HasClient api => Servant.Client.HasClient (Servant.API.Experimental.Auth.AuthProtect tag Servant.API.Sub.:> api)

+ Servant.Client: instance forall k (api :: k) (realm :: GHC.Types.Symbol) usr. Servant.Client.HasClient api => Servant.Client.HasClient (Servant.API.BasicAuth.BasicAuth realm usr Servant.API.Sub.:> api)

+ Servant.Client: instance forall k (api :: k). Servant.Client.HasClient api => Servant.Client.HasClient (Data.Vault.Lazy.Vault Servant.API.Sub.:> api)

+ Servant.Client: instance forall k (api :: k). Servant.Client.HasClient api => Servant.Client.HasClient (Network.HTTP.Types.Version.HttpVersion Servant.API.Sub.:> api)

+ Servant.Client: instance forall k (api :: k). Servant.Client.HasClient api => Servant.Client.HasClient (Servant.API.IsSecure.IsSecure Servant.API.Sub.:> api)

+ Servant.Client: instance forall k (api :: k). Servant.Client.HasClient api => Servant.Client.HasClient (Servant.API.RemoteHost.RemoteHost Servant.API.Sub.:> api)

+ Servant.Client: instance forall k (capture :: GHC.Types.Symbol) a (api :: k). (GHC.TypeLits.KnownSymbol capture, Web.Internal.HttpApiData.ToHttpApiData a, Servant.Client.HasClient api) => Servant.Client.HasClient (Servant.API.Capture.Capture capture a Servant.API.Sub.:> api)

+ Servant.Client: instance forall k (capture :: GHC.Types.Symbol) a (sublayout :: k). (GHC.TypeLits.KnownSymbol capture, Web.Internal.HttpApiData.ToHttpApiData a, Servant.Client.HasClient sublayout) => Servant.Client.HasClient (Servant.API.Capture.CaptureAll capture a Servant.API.Sub.:> sublayout)

+ Servant.Client: instance forall k (path :: GHC.Types.Symbol) (api :: k). (GHC.TypeLits.KnownSymbol path, Servant.Client.HasClient api) => Servant.Client.HasClient (path Servant.API.Sub.:> api)

+ Servant.Client: instance forall k (sym :: GHC.Types.Symbol) (api :: k). (GHC.TypeLits.KnownSymbol sym, Servant.Client.HasClient api) => Servant.Client.HasClient (Servant.API.QueryParam.QueryFlag sym Servant.API.Sub.:> api)

+ Servant.Client: instance forall k (sym :: GHC.Types.Symbol) a (api :: k). (GHC.TypeLits.KnownSymbol sym, Web.Internal.HttpApiData.ToHttpApiData a, Servant.Client.HasClient api) => Servant.Client.HasClient (Servant.API.Header.Header sym a Servant.API.Sub.:> api)

+ Servant.Client: instance forall k ct a (api :: k) (cts :: [GHC.Types.*]). (Servant.API.ContentTypes.MimeRender ct a, Servant.Client.HasClient api) => Servant.Client.HasClient (Servant.API.ReqBody.ReqBody (ct : cts) a Servant.API.Sub.:> api)

+ Servant.Client: instance forall k k1 (api :: k1) (tag :: k). Servant.Client.HasClient api => Servant.Client.HasClient (Servant.API.Experimental.Auth.AuthProtect tag Servant.API.Sub.:> api)

servant-client.cabal view

@@ -1,5 +1,5 @@ name:                servant-client-version:             0.9.0.1+version:             0.9.1 synopsis: automatical derivation of querying functions for servant webservices description:   This library lets you derive automatically Haskell functions that@@ -36,6 +36,7 @@     Servant.Common.Req   build-depends:       base                  >= 4.7      && < 4.10+    , base-compat           >= 0.9.1    && < 0.10     , aeson                 >= 0.7      && < 1.1     , attoparsec            >= 0.12     && < 0.14     , base64-bytestring     >= 1.0.0.1  && < 1.1@@ -72,6 +73,7 @@     , Servant.Common.BaseUrlSpec   build-depends:       base == 4.*+    , base-compat     , transformers     , transformers-compat     , aeson

src/Servant/Client.hs view

@@ -27,9 +27,6 @@   , module Servant.Common.BaseUrl   ) where -#if !MIN_VERSION_base(4,8,0)-import           Control.Applicative        ((<$>))-#endif import           Data.ByteString.Lazy       (ByteString) import           Data.List import           Data.Proxy@@ -40,6 +37,8 @@ import           Network.HTTP.Media import qualified Network.HTTP.Types         as H import qualified Network.HTTP.Types.Header  as HTTP+import           Prelude ()+import           Prelude.Compat import           Servant.API import           Servant.Client.Experimental.Auth import           Servant.Common.BaseUrl

src/Servant/Common/Req.hs view

@@ -7,9 +7,9 @@  module Servant.Common.Req where -#if !MIN_VERSION_base(4,8,0)-import Control.Applicative-#endif+import Prelude ()+import Prelude.Compat+ import Control.Exception import Control.Monad import Control.Monad.Catch (MonadThrow)

test/Servant/ClientSpec.hs view

@@ -10,8 +10,8 @@ {-# LANGUAGE OverloadedStrings      #-} {-# LANGUAGE PolyKinds              #-} {-# LANGUAGE RecordWildCards        #-}-{-# LANGUAGE StandaloneDeriving     #-} {-# LANGUAGE ScopedTypeVariables    #-}+{-# LANGUAGE StandaloneDeriving     #-} {-# LANGUAGE TypeFamilies           #-} {-# LANGUAGE TypeOperators          #-} {-# LANGUAGE UndecidableInstances   #-}@@ -26,9 +26,6 @@ #include "overlapping-compat.h" module Servant.ClientSpec where -#if !MIN_VERSION_base(4,8,0)-import           Control.Applicative        ((<$>))-#endif import           Control.Arrow              (left) import           Control.Concurrent         (forkIO, killThread, ThreadId) import           Control.Exception          (bracket)@@ -46,19 +43,21 @@ import           Network.Socket import           Network.Wai                (Request, requestHeaders, responseLBS) import           Network.Wai.Handler.Warp+import           Prelude ()+import           Prelude.Compat import           System.IO.Unsafe           (unsafePerformIO)+import           Test.HUnit import           Test.Hspec import           Test.Hspec.QuickCheck-import           Test.HUnit import           Test.QuickCheck import           Web.FormUrlEncoded         (FromForm, ToForm)  import           Servant.API import           Servant.API.Internal.Test.ComprehensiveAPI import           Servant.Client+import qualified Servant.Common.Req         as SCR import           Servant.Server import           Servant.Server.Experimental.Auth-import qualified Servant.Common.Req         as SCR  -- This declaration simply checks that all instances are in place. _ = client comprehensiveAPI

test/Servant/Common/BaseUrlSpec.hs view

@@ -1,11 +1,9 @@-{-# LANGUAGE CPP #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Servant.Common.BaseUrlSpec where -#if !MIN_VERSION_base(4,8,0)-import           Control.Applicative-#endif import           Control.DeepSeq+import           Prelude ()+import           Prelude.Compat import           Test.Hspec import           Test.QuickCheck