runXML.hs revision f8ebf49601fc282a2c044f9f37ed80340b187314
d27b1887e61f1dc53d77c37f59dbf5019242a686Christian MaederprocessFile :: String -> IO ()
d27b1887e61f1dc53d77c37f59dbf5019242a686Christian MaederprocessFile file = do
d27b1887e61f1dc53d77c37f59dbf5019242a686Christian Maeder s <- readFile file
99b26e2ab8ba89bc9a050c1524137eb6269e2753Christian Maeder case parseXMLDoc s of
18548c6cc2dff13bf9f5f08b3f6cde6ca914df1dChristian Maeder Nothing -> fail "error"
92ae4d5885ea837ffe3dae9b2de742f871229b94Christian Maeder Just elems -> putStrLn $ show (xmlBasicSpec elems)
8d2321e17a34951fbd52f68e9f9f148f0890e471Christian Maeder args <- getArgs
d27b1887e61f1dc53d77c37f59dbf5019242a686Christian Maeder mapM_ processFile args