eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

fix a warning

Browse source
This commit is contained in:
Alp Mestanogullari 2016-10-16 10:21:01 +02:00
parent 5e2f8be5a1
commit 4a52cce9b8
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant-server/src/Servant/Server/Internal/RoutingApplication.hs
View file

@ -256,7 +256,7 @@ runDelayed Delayed{..} env req = do
a <- authD a <- authD
b <- bodyD b <- bodyD
liftIO (writeIORef cleanupRef $ cleanupD b) liftIO (writeIORef cleanupRef $ cleanupD b)
DelayedIO $ \ req -> return (serverD c a b req) DelayedIO $ \ r -> return (serverD c a b r)
) )
req req
fmap (routeRes,) $ readIORef cleanupRef fmap (routeRes,) $ readIORef cleanupRef