typeable/wai
1
0
Fork 0
mirror of https://github.com/typeable/wai.git synced 2025-01-07 14:51:40 +03:00
Code Issues Projects Releases Wiki Activity

Hoist out a liftIO

Browse Source
This commit is contained in:
Michael Snoyman 2014-04-20 14:13:26 +03:00
parent ce24e90387
commit d8e9cdcc4d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
warp/Network/Wai/Handler/Warp/Response.hs
View File

@ -305,9 +305,10 @@ connSink Connection { connSendAll = send } th = sink
sink = await >>= maybe close push
close = liftIO (T.resume th)
push x = do
liftIO $ T.resume th
liftIO $ send x
liftIO $ T.pause th
liftIO $ do
T.resume th
send x
T.pause th
sink
-- We pause timeouts before passing control back to user code. This ensures
-- that a timeout will only ever be executed when Warp is in control. We