Hit count sample no longer works about tagsoup

[ChristopherKing42]

😢 I suppose we could place an issue here: https://github.com/haskell-infra/hl

[rcook]

I was thinking that a nice replacement example would be the Hackage page for this package: http://hackage.haskell.org/package/tagsoup. The example could extract the "Downloads" count from this page. I would rewrite the sample myself, but I haven't figured out how to use the package yet!

[erewok]

You could just switch it to the last modified date at https://wiki.haskell.org/Haskell, which contains the same markup as it did before (I think):

<ul id="f-list">
  <li id="lastmod"> This page was last modified on 9 September 2013, at 22:38.</li>
  <li id="copyright">Recent content is available under <a href="/HaskellWiki:Copyrights" title="HaskellWiki:Copyrights">a simple permissive license</a>.</li>

Which make the example something like:

haskellHitCount = do
    src <- openURL "http://haskell.org/haskellwiki/Haskell"
    let modified = fromFooter $ parseTags src
    putStrLn modified
    where fromFooter = innerText . take 2 . dropWhile (~/= "<li id=lastmod>")

Alternately, to get the "Downloads" count you were looking for on the hackage page, something like the following should work, I think:

let table = dropWhile (~/= "<table class=properties>") $ parseTags src
let downloads = fromTagText . head . drop 1 . dropWhile (~/= "Downloads") $ filter isTagText table

[ChristopherKing42]

👍 for Downloads count

[rcook]

I'll update the example to use last modified date for now. If I have time, I'll add an example that does download count too.

[ChristopherKing42]

@rcook It appears that https://github.com/ndmitchell/tagsoup/blob/master/TagSoup/Sample.hs is where this would go.

[rcook]

@theking42 : Thanks!

[ndmitchell]

Thanks @rcook and @theking42 for your patches and figuring out the problem and solution. I raised #40 to use Travis to run the demos, and hopefully catch such issues before users run into them.