Yet another HXT example

scope.hs

import Text.XML.HXT.Core

main = runX $
  readDocument [ withValidate no ] "in.xml" >>> addRuntimeScope >>>
  writeDocument [ withIndent yes ] "out.xml"

addRuntimeScope = processTopDown (runtimeScope `when` noScope)

runtimeScope = replaceChildren (getChildren <+> scope) where
  scope = mkelem "scope" [] [ txt "runtime" ]

noScope = isElem >>> hasName "dependency" >>>
  neg ( getChildren >>> isElem >>> hasName "scope" )


-- in.xml
-- <?xml version="1.0" encoding="UTF-8"?>
-- <dependencies>
--  <dependency>
--    <artefactId>foo</artefactId>
--    <scope>test</scope>
--  </dependency>
--  <dependency>
--    <artefactId>bar</artefactId>
--  </dependency>
--  <dependency>
--    <artefactId>baz</artefactId>
--    <scope>runtime</scope>
--  </dependency>
-- </dependencies>


-- out.xml
-- <?xml version="1.0" encoding="UTF-8"?>
-- <dependencies>
--  <dependency>
--    <artefactId>foo</artefactId>
--    <scope>test</scope>
--  </dependency>
--  <dependency>
--    <artefactId>bar</artefactId>
--    <scope>runtime</scope> <!-- here -->
--  </dependency>
--  <dependency>
--    <artefactId>baz</artefactId>
--    <scope>runtime</scope>
--  </dependency>
-- </dependencies>