fix a warning

2016-10-16 10:21:01 +02:00 · 2016-10-16 10:21:01 +02:00 · 6ab0296d62
commit 6ab0296d62
parent 124c6de1eb
1 changed files with 1 additions and 1 deletions
--- a/servant-server/src/Servant/Server/Internal/RoutingApplication.hs
+++ b/servant-server/src/Servant/Server/Internal/RoutingApplication.hs
@ -257,7 +257,7 @@ runDelayed Delayed{..} env req = do
        a <- authD
        b <- bodyD
        liftIO (writeIORef cleanupRef $ cleanupD b)
-        DelayedIO $ \ req -> return (serverD c a b req)
+        DelayedIO $ \ r -> return (serverD c a b r)
    )
    req
  fmap (routeRes,) $ readIORef cleanupRef