fix a warning

2016-10-16 10:21:01 +02:00 · 2016-10-16 10:21:01 +02:00 · 4a52cce9b8
commit 4a52cce9b8
parent 5e2f8be5a1
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
@ -256,7 +256,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