From b714640110519092e513c8d7eb4885a13a85caba Mon Sep 17 00:00:00 2001 From: Arian van Putten Date: Mon, 4 Jul 2016 14:38:00 +0200 Subject: [PATCH] Add CaptureAll to ComprehensiveAPI --- servant/src/Servant/API/Internal/Test/ComprehensiveAPI.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/servant/src/Servant/API/Internal/Test/ComprehensiveAPI.hs b/servant/src/Servant/API/Internal/Test/ComprehensiveAPI.hs index 5666ba0c..f568e56f 100644 --- a/servant/src/Servant/API/Internal/Test/ComprehensiveAPI.hs +++ b/servant/src/Servant/API/Internal/Test/ComprehensiveAPI.hs @@ -30,7 +30,8 @@ type ComprehensiveAPI = Vault :> GET :<|> Verb 'POST 204 '[JSON] NoContent :<|> Verb 'POST 204 '[JSON] Int :<|> - WithNamedContext "foo" '[] GET + WithNamedContext "foo" '[] GET :<|> + CaptureAll "foo" Int :> GET comprehensiveAPI :: Proxy ComprehensiveAPI comprehensiveAPI = Proxy