Source

simpleHaskellHTTPClient / troveBoxClient.hs

Full commit

import Network.HTTP -- SimpleHTTP

-- Fetch a URL via GET
fetch :: String -> IO String
fetch url = do
    response <- simpleHTTP (getRequest url)
    body <- getResponseBody response
    return body

main = do
    let url = "http://photos.cedricbonhomme.org/photos/list.json?pageSize=1000"
    fetch url