Cosmetic changes suggested by hlint.

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

diff --git a/Network/HTTP/Lucu/DefaultPage.hs b/Network/HTTP/Lucu/DefaultPage.hs
index 5c6846bdc0dc94479ee4ba755e6864088117977c..b530455f6ce99d686843f343aa4d4ba7042baab7 100644 (file)
--- 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