, mkDefaultPage
)
where
+import Blaze.ByteString.Builder (Builder)
+import qualified Blaze.ByteString.Builder.Char.Utf8 as BB
import Control.Arrow
import Control.Arrow.ArrowList
import Control.Arrow.ListArrow
import qualified Data.Ascii as A
import Data.Maybe
import qualified Data.Text as T
-import qualified Data.Text.Lazy as Lazy
import Network.HTTP.Lucu.Config
import Network.HTTP.Lucu.Headers
import Network.HTTP.Lucu.Request
import Text.XML.HXT.Arrow.XmlState
import Text.XML.HXT.DOM.TypeDefs
-getDefaultPage ∷ Config → Maybe Request → Response → Lazy.Text
+getDefaultPage ∷ Config → Maybe Request → Response → Builder
{-# INLINEABLE getDefaultPage #-}
getDefaultPage conf req res
= let msgA = getMsg req res
writeDocumentToString [ withIndent True ]
) ()
in
- Lazy.pack xmlStr
+ BB.fromString xmlStr
defaultPageContentType ∷ Ascii
{-# INLINE defaultPageContentType #-}