git.iko.soy/servant
on master help sign in
fix a warning
6ab0296Alp Mestanogullari
servant-server/src/Servant/Server/Internal/RoutingApplication.hs+1−1
compare with master
unifiedsplit
@@ -257,7 +257,7 @@ runDelayed Delayed{..} env req = do
257 a <- authD
257 a <- authD
258 b <- bodyD
258 b <- bodyD
259 liftIO (writeIORef cleanupRef $ cleanupD b)
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 req
262 req
263 fmap (routeRes,) $ readIORef cleanupRef
263 fmap (routeRes,) $ readIORef cleanupRef