http.hs

-- The lack of documentation for these things is crazy

module HTTPExamples
where

import Network.HTTP
import Control.Applicative

url = "http://www.owainlewis.com"

-- Fetch a URL via GET

fetch :: String -> IO String
fetch url = do
  response <- simpleHTTP (getRequest url)
  body <- getResponseBody response
  return body

-- Fetch n chars from a url

fetch_chunk :: String -> Int -> IO [Char]
fetch_chunk url n = 
  simpleHTTP (getRequest url) >>= 
    fmap (take n) . getResponseBody