From 88974106b11eb7c2a74de25f32c819343c318841 Mon Sep 17 00:00:00 2001 From: aaron levin Date: Sun, 20 Dec 2015 23:00:43 +0100 Subject: [PATCH] Update server for new Delayed type --- servant-server/src/Servant/Server.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant-server/src/Servant/Server.hs b/servant-server/src/Servant/Server.hs index cfa10088..dc96dfe0 100644 --- a/servant-server/src/Servant/Server.hs +++ b/servant-server/src/Servant/Server.hs @@ -107,7 +107,7 @@ import Servant.Server.Internal.Authentication serve :: HasServer layout => Proxy layout -> Server layout -> Application serve p server = toApplication (runRouter (route p d)) where - d = Delayed r r r (\ _ _ -> Route server) + d = Delayed r r r r (\ _ _ _ -> Route server) r = return (Route ())