dino-/kowey-xml.hs

## kowey-xml.hs
#! /usr/bin/env runhaskell

import Text.HTML.TagSoup

main :: IO ()
main = do
   tags <- fmap parseTags $ readFile "foo.xml";
   let names = sections (~== "<name>") $ tags
   mapM_ (\t -> putStrLn $ "saw: " ++ t ) $ map fromTagText
      $ map (flip (!!) 1) names
	#! /usr/bin/env runhaskell

	import Text.HTML.TagSoup

	main :: IO ()
	main = do
	tags <- fmap parseTags $ readFile "foo.xml";
	let names = sections (~== "<name>") $ tags
	mapM_ (\t -> putStrLn $ "saw: " ++ t ) $ map fromTagText
	$ map (flip (!!) 1) names