Example of an HTTP request in Haskell

haskell_http.hs

#!/usr/bin/env runhaskell

import GHC.IO.Handle
import Network
import Network.Socket

main = do
    handle <- connectTo "hackage.haskell.org" (PortNumber 80)
    hPutStr handle "GET /packages/hackage.html HTTP/1.1\n"
    hPutStr handle "Host: hackage.haskell.org\n"
    hPutStr handle "\n"
    hFlush handle
    result <- hGetContents handle
    putStrLn result