musicxml-0.1.1: examples/ReadWrite.lhs

> module Main where
> import Text.XML.MusicXML
> filein = "Recordare/partwise/elite.xml"
> fileout = "out.xml"
> main = do 
>       x <- read_FILE read_MusicXMLDoc filein
>       case isOK x of
>           True -> show_FILE show_MusicXMLDoc fileout (fromOK x)
>           False -> return ()