From 4a52cce9b877673bc6750f317d3d11d7223d496c Mon Sep 17 00:00:00 2001 From: Alp Mestanogullari Date: Sun, 16 Oct 2016 10:21:01 +0200 Subject: [PATCH] fix a warning --- .../src/Servant/Server/Internal/RoutingApplication.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant-server/src/Servant/Server/Internal/RoutingApplication.hs b/servant-server/src/Servant/Server/Internal/RoutingApplication.hs index d2ec3ba1..0117a222 100644 --- 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