Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 3b6d63421b
Fetching contributors…

Cannot retrieve contributors at this time

12 lines (9 sloc) 0.409 kb
{-# LANGUAGE OverloadedStrings #-}
import Prelude hiding (writeFile)
import Text.XML
import System.Environment
main = getArgs >>= mapM_ go
go fp = do
Document a (Element r as1 (title:NodeElement (Element "topicref" as2 ns2):ns1)) b <- readFile_ def fp
let as2' = ("chunk", "to-content") : as2
writeFile def fp $ Document a (Element r as1 (title:NodeElement (Element "topicref" as2' ns2):ns1)) b
Jump to Line
Something went wrong with that request. Please try again.