removing a comment.
commitcdc34ec4742618beebc97eeeb879cb459301b6c8
authorKazu Yamamoto <kazu@iij.ad.jp>
dateThu 17 Oct 2013, 14:02 (13 years ago)
parent42d627f
warp/Network/Wai/Handler/Warp/Timeout.hs−1
@@ -87,7 +87,6 @@ initialize timeout = do
8787 ref <- I.newIORef []
8888 void . forkIO $ E.handle ignoreStop $ forever $ do
8989 threadDelay timeout
90− -- FIXME: isn't mask_ necessary?
9190 old <- I.atomicModifyIORef ref (\x -> ([], x))
9291 merge <- prune old id
9392 I.atomicModifyIORef ref (\new -> (merge new, ()))