Haskellで簡単Webクライアント

simple-client.hs

{-# LANGUAGE OverloadedStrings #-}
import Text.XML.Cursor
import Text.HTML.DOM (parseLBS)
import Network.HTTP.Conduit 
import qualified Data.Text as T
import qualified Data.Text.IO as T

main :: IO ()
main = do
    doc <- parseLBS <$> simpleHttp "http://www.ishiy.xyz/archive.html"
    let root = fromDocument doc
    let entries = pickUpEntry root
    putStrLn $ ("総記事数: " ++) . show $ length entries
    putStrLn "記事一覧:"
    T.putStr $ T.unlines $ map ("- " `T.append`) entries

pickUpEntry :: Cursor -> [T.Text]
pickUpEntry r = r $// element "div"
                  >=> attributeIs "class" "entry"
                  >=> child
                  >=> element "ul"
                  >=> child
                  >=> element "li"
                  >=> child
                  >=> element "a"
                  &// content