eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Update server for new Delayed type

Browse source
This commit is contained in:
aaron levin 2015-12-20 23:00:43 +01:00
parent b2103790b0
commit 88974106b1
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant-server/src/Servant/Server.hs
View file

@ -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 ())