named-servant-client 0.2.0 → 0.3.0

raw patch · 3 files changed

+5/−14 lines, 3 filesdep ~named-servantdep ~servant

Dependency ranges changed: named-servant, servant

Files

• named-servant-client.cabal +2/−2
• src/Servant/Client/Named.hs +2/−11
• src/Servant/Client/Record.hs +1/−1

@@ -1,6 +1,6 @@ cabal-version: 1.12 name: named-servant-client-version: 0.2.0+version: 0.3.0 synopsis: client support for named-servant maintainer: kristof@resonata.be copyright: Kristof Bastiaensen 2020@@ -24,5 +24,5 @@         base >= 4.7 && < 5,         servant >= 0.17 && < 0.18,         servant-client-core >= 0.17 && < 0.18,-        named-servant == 0.2.0,+        named-servant == 0.3.0,         named >= 0.3 && < 0.5

@@ -24,15 +24,6 @@ unarg :: NamedF f a name -> f a unarg (ArgF a) = a --- | type family to rewrite a named queryparam to a regular--- queryparam.  Useful to define instances for classes that extract--- information from the API type., for example servant-foreign, or--- servant-swagger.-type family UnNameParam x where-  UnNameParam (NamedQueryParams sym a) = QueryParams sym a-  UnNameParam (NamedQueryParam' mods sym a) = QueryParam' mods sym a-  UnNameParam (NamedQueryFlag sym) = QueryFlag sym- instance (KnownSymbol sym, ToHttpApiData a, HasClient m api)       => HasClient m (NamedQueryParams sym a :> api) where @@ -69,9 +60,9 @@   type Client m (NamedQueryFlag sym :> api) =     sym :? Bool -> Client m api -  clientWithRoute pm Proxy req (ArgF paramlist) =+  clientWithRoute pm Proxy req (ArgF flag) =     clientWithRoute pm (Proxy :: Proxy (QueryFlag sym :> api)) req $-                    fromMaybe False paramlist+                    fromMaybe False flag                        hoistClientMonad pm _ f cl as =     hoistClientMonad pm (Proxy :: Proxy api) f (cl as)

@@ -12,7 +12,7 @@ {-# LANGUAGE MultiParamTypeClasses #-} {-# OPTIONS_GHC -fno-warn-orphans #-} -- | -- | This module just exports orphan instances to make named-servant--- work with clients+-- work with clients.  See that package for documentation. module Servant.Client.Record () where import Servant.API import Data.Proxy