Many changes

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

diff --git a/Network/HTTP/Lucu/Abortion.hs b/Network/HTTP/Lucu/Abortion.hs
index 9ef433b15f99361a2e1dbf4f17d288de38ca743e..c36ebc07912176949d2005e37e8e4dc7a8d2c625 100644 (file)
--- a/Network/HTTP/Lucu/Abortion.hs
+++ b/Network/HTTP/Lucu/Abortion.hs
@@ -27,6 +27,7 @@ import Control.Monad.Trans
 import Data.Ascii (Ascii, CIAscii)
 import Data.Text (Text)
 import qualified Data.Text as T
+import qualified Data.Text.Lazy as Lazy
 import Data.Typeable
 import Network.HTTP.Lucu.Config
 import Network.HTTP.Lucu.DefaultPage
@@ -99,7 +100,7 @@ abortA = proc (status, (headers, msg)) →
 -- aboMessage が Just なら單に mkDefaultPage に渡すだけで良いので樂だが、
 -- Nothing の場合は getDefaultPage を使ってデフォルトのメッセージを得な
 -- ければならない。
-abortPage :: Config → Maybe Request → Response → Abortion → Text
+abortPage :: Config → Maybe Request → Response → Abortion → Lazy.Text
 abortPage !conf !reqM !res !abo
     = case aboMessage abo of
         Just msg
@@ -108,7 +109,7 @@ abortPage !conf !reqM !res !abo
                                    writeDocumentToString [ withIndent True ]
                                  ) ()
               in
-                T.pack html
+                Lazy.pack html
         Nothing
             → let res'  = res { resStatus = aboStatus abo }
                   res'' = foldl (∘) id [setHeader name value