-import Text.XML.HXT.Arrow.WriteDocument
-import Text.XML.HXT.Arrow.XmlArrow
-import Text.XML.HXT.Arrow.XmlState
-import Text.XML.HXT.DOM.TypeDefs
-
-getDefaultPage ∷ Config → Maybe Request → Response → Builder
-{-# INLINEABLE getDefaultPage #-}
-getDefaultPage conf req res
- = let msgA = getMsg req res
- [xmlStr] = runLA ( mkDefaultPage conf (resStatus res) msgA
- ⋙
- writeDocumentToString [ withIndent True ]
- ) ()
- in
- BB.fromString xmlStr
+import Text.Blaze
+import Text.Blaze.Html5 hiding (hr)
+import Text.Blaze.Html5.Attributes hiding (title)
+import Text.Blaze.Renderer.Utf8