git.iko.soy/servant
on master help sign in
Test that no foreign functions are generated for an EmptyAPI
e73f00bDavid Turner
servant-foreign/test/Servant/ForeignSpec.hs+1
compare with master
unifiedsplit
@@ -57,6 +57,7 @@ type TestApi
57 :<|> "test" :> QueryParams "params" Int :> ReqBody '[JSON] String :> Put '[JSON] NoContent
57 :<|> "test" :> QueryParams "params" Int :> ReqBody '[JSON] String :> Put '[JSON] NoContent
58 :<|> "test" :> Capture "id" Int :> Delete '[JSON] NoContent
58 :<|> "test" :> Capture "id" Int :> Delete '[JSON] NoContent
59 :<|> "test" :> CaptureAll "ids" Int :> Get '[JSON] [Int]
59 :<|> "test" :> CaptureAll "ids" Int :> Get '[JSON] [Int]
60+ :<|> "test" :> EmptyAPI
60
61
61testApi :: [Req String]
62testApi :: [Req String]
62testApi = listFromAPI (Proxy :: Proxy LangX) (Proxy :: Proxy String) (Proxy :: Proxy TestApi)
63testApi = listFromAPI (Proxy :: Proxy LangX) (Proxy :: Proxy String) (Proxy :: Proxy TestApi)