isMp3Link = (==) “3pm.” . take 4 . reverse

Just take away that reverse … .

(Sorry, April 1st for me, couldn’t resist the “3pm” part ).

HXT certainly does a lot more than TagSoup does, but for the simple cases (like this one), I find TagSoup tends to be shorter and a bit clearer.

Nice. I’ve never looked at tagsoup so it’s nice to see some code using it. One nice thing with HXT is that it handles both URLs and files without any extra work by me. Though I think your code above is a bit more “intuitive”, at least for someone like me who doesn’t have a lot of previous exposure to arrows.

import System.FilePath
import System.Environment
import Text.HTML.TagSoup

main = do
[src] <- getArgs
txt <- readFile src
mapM_ putStrLn [mp3 | TagOpen "a" atts <- parseTags txt, ("href",mp3) <- atts, takeExtension mp3 == ".mp3"]

I’ve also used System.FilePath to check if an extension is mp3