@@ -42,10 +42,11 @@ withServantServer api = withServantServerAndContext api EmptyContext
4242-- /Since 0.0.0.0/
4343#if MIN_VERSION_servant_server(0,18,0)
4444withServantServerAndContext :: (HasServer a ctx, HasContextEntry (ctx .++ DefaultErrorFormatters) ErrorFormatters)
45+ => Proxy a -> Context ctx -> IO (Server a) -> (BaseUrl -> IO r) -> IO r
4546#else
4647withServantServerAndContext :: HasServer a ctx
47−#endif
4848 => Proxy a -> Context ctx -> IO (Server a) -> (BaseUrl -> IO r) -> IO r
49+#endif
4950withServantServerAndContext api ctx server t
5051 = withApplication (return . serveWithContext api ctx =<< server) $ \port ->
5152 t (BaseUrl Http "localhost" port "")