fix a warning

alpmestan · phadej · commit 6ab0296d62aa · 2017-01-17T22:29:37.000+02:00
diff --git 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

Original file line number	Diff line number	Diff line change
`@@ -257,7 +257,7 @@ runDelayed Delayed{..} env req = do`
`257`	`257`	`a <- authD`
`258`	`258`	`b <- bodyD`
`259`	`259`	`liftIO (writeIORef cleanupRef $ cleanupD b)`
`260`		`- DelayedIO $ \ req -> return (serverD c a b req)`
	`260`	`+ DelayedIO $ \ r -> return (serverD c a b r)`
`261`	`261`	`)`
`262`	`262`	`req`
`263`	`263`	`fmap (routeRes,) $ readIORef cleanupRef`