web page 内のリンク先URLを列挙する

gistfile1.hs

{-# LANGUAGE OverloadedStrings #-}

import Control.Lens
import Data.Foldable
import Network.Wreq
import Text.Taggy.Lens
import Data.Text.Lazy.Encoding
import Data.Maybe

main = do
    r <- get "URL"
    traverse_ print . catMaybes $ (r ^.. responseBody . to decodeUtf8 . html . allNamed (only "a") . attrs . at "href")