+ writeContinue itr
+ = {-# SCC "writeContinue" #-}
+ itr `seq`
+ do let cont = Response {
+ resVersion = HttpVersion 1 1
+ , resStatus = Continue
+ , resHeaders = emptyHeaders
+ }
+ cont' <- completeUnconditionalHeaders cnf cont
+ hPutResponse h cont'
+ hFlush h
+ atomically $! writeItr itr itrWroteContinue True
+ awaitSomethingToWrite