Resume timeout handlers between requests #231
commit928cdfff7f7fbe8bc14c5ec5cd5fd1a44a3e5429
authorMichael Snoyman <michael@snoyman.com>
dateWed 5 Mar 2014, 19:11 (13 years ago)
parentc4ab46e
warp/Network/Wai/Handler/Warp/Run.hs+1
@@ -271,6 +271,7 @@ serveConnection conn ii addr settings app = do
271271 -- flush the rest of the request body
272272 requestBody req $$ CL.sinkNull
273273 ResumableSource fromClient' _ <- getSource
274+ T.resume th
274275 recvSendLoop istatus fromClient'
275276 Just intercept -> do
276277 T.pause th