writeItr itrReqBodyWanted (Just actualLimit) itr
-- 應答を待つ。トランザクションを分けなければ當然デッドロックする。
chunk ← liftIO $ atomically
writeItr itrReqBodyWanted (Just actualLimit) itr
-- 應答を待つ。トランザクションを分けなければ當然デッドロックする。
chunk ← liftIO $ atomically
writeItr itrWillReceiveBody True itr
-- 應答を待つ。トランザクションを分けなければ當然デッドロック。
chunk ← liftIO $ atomically
writeItr itrWillReceiveBody True itr
-- 應答を待つ。トランザクションを分けなければ當然デッドロック。
chunk ← liftIO $ atomically
(Just $ "cnfMaxOutputChunkLength must be positive: " ⊕ T.pack (show limit))
discardBody ← liftIO $ atomically $
(Just $ "cnfMaxOutputChunkLength must be positive: " ⊕ T.pack (show limit))
discardBody ← liftIO $ atomically $