ResponseWriter now compiles.

[Lucu.git] / Network / HTTP / Lucu / Resource / Tree.hs

diff --git a/Network/HTTP/Lucu/Resource/Tree.hs b/Network/HTTP/Lucu/Resource/Tree.hs
index b45707249062c143d39270da8a45d9aaaa1814b6..d386bce8cd78486a5f89c039a5bf3b5c78ff57a3 100644 (file)
--- 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