- = do setContentType $ read "text/xml"
- [xmlStr] <- liftIO $ runX ( setErrorMsgHandler False fail
- >>>
- mkSystemConfigTree env
- >>>
- writeDocumentToString [ (a_indent, v_1) ]
- )
- output xmlStr
+ = runIdempotentA' $ proc ()
+ -> do tree <- mkSystemConfigTree env -< ()
+ returnA -< outputXml tree