From e73f00b333fbf7791fc38d20521deaff67b38a28 Mon Sep 17 00:00:00 2001 From: David Turner Date: Tue, 16 May 2017 10:31:33 +0000 Subject: [PATCH] Test that no foreign functions are generated for an EmptyAPI --- servant-foreign/test/Servant/ForeignSpec.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/servant-foreign/test/Servant/ForeignSpec.hs b/servant-foreign/test/Servant/ForeignSpec.hs index f7c910ab..3bc572a5 100644 --- a/servant-foreign/test/Servant/ForeignSpec.hs +++ b/servant-foreign/test/Servant/ForeignSpec.hs @@ -57,6 +57,7 @@ type TestApi :<|> "test" :> QueryParams "params" Int :> ReqBody '[JSON] String :> Put '[JSON] NoContent :<|> "test" :> Capture "id" Int :> Delete '[JSON] NoContent :<|> "test" :> CaptureAll "ids" Int :> Get '[JSON] [Int] + :<|> "test" :> EmptyAPI testApi :: [Req String] testApi = listFromAPI (Proxy :: Proxy LangX) (Proxy :: Proxy String) (Proxy :: Proxy TestApi)