= do willDiscardBody <- atomically $ readItr itr itrWillDiscardBody id
willChunkBody <- atomically $ readItr itr itrWillChunkBody id
when (not willDiscardBody && willChunkBody)
- $ hPutStr h "0\r\n" >> hFlush h
+ $ hPutStr h "0\r\n\r\n" >> hFlush h
finalize :: Interaction -> IO ()
finalize itr
readItr itr itrWillClose id
if willClose then
+ -- reader は恐らく hWaitForInput してゐる最中なので、
+ -- スレッドを豫め殺して置かないとをかしくなる。
do killThread readerTID
hClose h
else