+ writeContinue itr
+ = do let cont = Response {
+ resVersion = HttpVersion 1 1
+ , resStatus = Continue
+ , resHeaders = []
+ }
+ cont' <- completeUnconditionalHeaders cnf cont
+ hPutResponse h cont'
+ hFlush h
+ atomically $ writeItr itr itrWroteContinue True
+ awaitSomethingToWrite