fix a warning
commit6ab0296d62aac99af386280447dc7227da4fc9e3
authorAlp Mestanogullari <alpmestan@gmail.com>
dateSun 16 Oct 2016, 10:21 (10 years ago)
parent124c6de
servant-server/src/Servant/Server/Internal/RoutingApplication.hs+1−1
@@ -257,7 +257,7 @@ runDelayed Delayed{..} env req = do
257257 a <- authD
258258 b <- bodyD
259259 liftIO (writeIORef cleanupRef $ cleanupD b)
260− DelayedIO $ \ req -> return (serverD c a b req)
260+ DelayedIO $ \ r -> return (serverD c a b r)
261261 )
262262 req
263263 fmap (routeRes,) $ readIORef cleanupRef