eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Support CaptureAll in servant-client and servant-mock

Browse source
This commit is contained in:
Nickolay Kudasov 2016-01-20 19:57:04 +03:00
parent e23245c5bf
commit a61d62dd6f
2 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
servant-client/src/Servant/Client.hs
View file

@ -118,6 +118,20 @@ instance (KnownSymbol capture, ToHttpApiData a, HasClient sublayout)
where p = unpack (toUrlPiece val)
instance (ToHttpApiData a, HasClient sublayout)
=> HasClient (CaptureAll a :> sublayout) where
type Client (CaptureAll a :> sublayout) =
[a] -> Client sublayout
clientWithRoute Proxy req baseurl manager vals =
clientWithRoute (Proxy :: Proxy sublayout)
(foldl' (flip appendToPath) req ps)
baseurl
manager
where ps = map (unpack . toUrlPiece) vals
instance OVERLAPPABLE_
-- Note [Non-Empty Content Types]
(MimeUnrender ct a, ReflectMethod method, cts' ~ (ct ': cts)

3
servant-mock/src/Servant/Mock.hs
View file

@ -114,6 +114,9 @@ instance (KnownSymbol path, HasMock rest) => HasMock (path :> rest) where
instance (KnownSymbol s, FromHttpApiData a, HasMock rest) => HasMock (Capture s a :> rest) where
mock _ = \_ -> mock (Proxy :: Proxy rest)
instance (FromHttpApiData a, HasMock rest) => HasMock (CaptureAll a :> rest) where
mock _ = \_ -> mock (Proxy :: Proxy rest)
instance (AllCTUnrender ctypes a, HasMock rest) => HasMock (ReqBody ctypes a :> rest) where
mock _ = \_ -> mock (Proxy :: Proxy rest)