TestHTTP.hs

module Main where

import System.Environment
import Network.HTTP

main :: IO ()
main = do
  url <- fmap head getArgs
  r <- simpleHTTP $ getRequest url
  getResponseBody r >>= putStrLn

TestScalpel.hs

module Main where

import Text.HTML.Scalpel
import Data.List
import Data.Maybe
import System.Environment

main :: IO ()
main = do
  url <- fmap head getArgs
  mhtml <- scrapeURL url $ html "html"
  maybe (putStrLn "Fail") putStrLn mhtml 

TestWreq.hs

module Main where

import Network.Wreq
import Data.Aeson.Lens
import Control.Lens
import qualified Data.ByteString.Lazy as B
import System.Environment

main :: IO ()
main = do
  url <- fmap head getArgs
  r <- get url
  B.putStrLn $ r ^. responseBody