Gather forms using wreq and html-conduit

Main.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Network.Wreq
import qualified Text.HTML.DOM as H
import Text.XML
import Text.XML.Cursor
import Control.Lens hiding (element)
import Data.Aeson.Lens
import Text.Blaze.Renderer.Pretty (renderMarkup)
import Text.Blaze (toMarkup)
import Control.Monad

main :: IO ()
main = do
    r <- get "http://www.google.com"    
    let html = H.parseLBS $ r ^. responseBody
        rootCursor = fromDocument html
        filtered = map node $ rootCursor $.// (element "form")
    forM_ filtered $ \tree -> do
        putStrLn $ renderMarkup $ toMarkup tree