gistfile1.hs

import Network.HTTP
import Network.URI
import Data.Maybe

main :: IO ()
main = do
  let req = getRequest "http://hackage.haskell.org/packages/hackage.html"
  res_ <- simpleHTTP req
  case res_ of
    Right res -> do
              putStrLn "rspCode: "
              print $ rspCode res
              putStrLn "rspReason: "
              print $ rspReason res
              putStrLn "rspHeaders: "
              print $ rspHeaders res
              putStrLn "rspBody: "
              print $ rspBody res
    _ -> putStrLn "HTTP response error."