changed everything like a maniac

[Lucu.git] / Network / HTTP / Lucu / DefaultPage.hs

diff --git a/Network/HTTP/Lucu/DefaultPage.hs b/Network/HTTP/Lucu/DefaultPage.hs
index 5c6846bdc0dc94479ee4ba755e6864088117977c..e1bdf1ce6e3daeb34af5e7f3b07ccf955364265d 100644 (file)
--- a/Network/HTTP/Lucu/DefaultPage.hs
+++ b/Network/HTTP/Lucu/DefaultPage.hs
@@ -49,8 +49,7 @@ writeDefaultPage (Interaction {..})
     -- Content-Type が正しくなければ補完できない。
     = do res ← readTVar itrResponse
          when (getHeader "Content-Type" res ≡ Just defaultPageContentType)
-             $ do reqM ← readTVar itrRequest
-                  let page = getDefaultPage itrConfig reqM res
+             $ do let page = getDefaultPage itrConfig itrRequest res
                   putTMVar itrBodyToSend (BB.fromLazyText page)
 
 mkDefaultPage ∷ (ArrowXml a) ⇒ Config → StatusCode → a b XmlTree → a b XmlTree