X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FDefaultPage.hs;h=1e5a7a6c6e51ebc422d72db62d024f56ac93df0a;hp=360a2686137a6a76539eafadede328bc4451d796;hb=cc55fb9;hpb=32a6ebbb18856ab1203e8a114414f235c2abe22b

diff --git a/Network/HTTP/Lucu/DefaultPage.hs b/Network/HTTP/Lucu/DefaultPage.hs
index 360a268..1e5a7a6 100644
--- a/Network/HTTP/Lucu/DefaultPage.hs
+++ b/Network/HTTP/Lucu/DefaultPage.hs
@@ -47,9 +47,9 @@ getDefaultPage !conf !req !res
 writeDefaultPage ∷ Interaction → STM ()
 writeDefaultPage !itr
     -- Content-Type が正しくなければ補完できない。
-    = do res ← readItr itrResponse id itr
+    = do res ← readItr itrResponse itr
          when (getHeader "Content-Type" res == Just defaultPageContentType)
-                  $ do reqM ← readItr itrRequest id itr
+                  $ do reqM ← readItr itrRequest itr
 
                        let conf = itrConfig itr
                            page = getDefaultPage conf reqM res