X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResource%2FTree.hs;h=d386bce8cd78486a5f89c039a5bf3b5c78ff57a3;hp=b45707249062c143d39270da8a45d9aaaa1814b6;hb=cc55fb9;hpb=32a6ebbb18856ab1203e8a114414f235c2abe22b

diff --git a/Network/HTTP/Lucu/Resource/Tree.hs b/Network/HTTP/Lucu/Resource/Tree.hs
index b457072..d386bce 100644
--- a/Network/HTTP/Lucu/Resource/Tree.hs
+++ b/Network/HTTP/Lucu/Resource/Tree.hs
@@ -292,9 +292,9 @@ runResource def itr
                -- まだ DecidingHeader 以前の状態だったら、この途中終了
                -- を應答に反映させる餘地がある。さうでなければ stderr
                -- にでも吐くしか無い。
-               state ← atomically $ readItr itrState    id itr
-               reqM  ← atomically $ readItr itrRequest  id itr
-               res   ← atomically $ readItr itrResponse id itr
+               state ← atomically $ readItr itrState    itr
+               reqM  ← atomically $ readItr itrRequest  itr
+               res   ← atomically $ readItr itrResponse itr
                if state ≤ DecidingHeader then
                    flip runRes itr
                       $ do setStatus $ aboStatus abo