parse html & links href

parsehtml.hs

import Network.HTTP
import Text.HTML.TagSoup

openURL x = getResponseBody =<< simpleHTTP (getRequest x)

extractLinks ((TagOpen "a" as):xs) = as:extractLinks(xs)
extractLinks (x:xs) = extractLinks(xs)
extractLinks  _ = []

extractHref (("href",k):xs) = k:extractHref(xs)
extractHref (x:xs) = extractHref(xs)
extractHref _ = []

main = do
	src <- openURL "http://www.heise.de"
	let tags = parseTags src
	let attrs = concat (extractLinks tags)
	let hrefs  = extractHref attrs
	writeFile "hrefs.txt" (show hrefs)