X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FDefaultPage.hs;h=b530455f6ce99d686843f343aa4d4ba7042baab7;hb=6126eb9;hp=5c6846bdc0dc94479ee4ba755e6864088117977c;hpb=2bb7a0baa35dadb5d36d3f9fa98bd242baabc6d1;p=Lucu.git

diff --git a/Network/HTTP/Lucu/DefaultPage.hs b/Network/HTTP/Lucu/DefaultPage.hs
index 5c6846b..b530455 100644
--- a/Network/HTTP/Lucu/DefaultPage.hs
+++ b/Network/HTTP/Lucu/DefaultPage.hs
@@ -1,7 +1,6 @@
 {-# LANGUAGE
     OverloadedStrings
   , RecordWildCards
-  , UnboxedTuples
   , UnicodeSyntax
   #-}
 module Network.HTTP.Lucu.DefaultPage
@@ -49,8 +48,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