import System.IO.Unsafe
import Text.XML.HXT.Arrow.WriteDocument
import Text.XML.HXT.Arrow.XmlArrow
-import Text.XML.HXT.Arrow.XmlIOStateArrow
-import Text.XML.HXT.DOM.XmlKeywords
+import Text.XML.HXT.Arrow.XmlState
data Abortion = Abortion {
-> let [html] = unsafePerformIO
$ runX ( mkDefaultPage conf (aboStatus abo) (txt msg)
>>>
- writeDocumentToString [(a_indent, v_1)]
+ writeDocumentToString [ withIndent True ]
)
in
html
Nothing
-> let res' = res { resStatus = aboStatus abo }
res'' = foldl (.) id [setHeader name value
- | (name, value) <- fromHeaders $ aboHeaders abo]
- $ res'
+ | (name, value) <- fromHeaders $ aboHeaders abo] res'
in
getDefaultPage conf reqM res''