-- Copyright (c) 2004 Scott Owens

module SimpleHTTP (getPage)

where 

import Network
import Network.URI
import IO
import Char


getPage :: String -> IO String
-- getPage issues an HTTP GET to retrieve the page at uriString
getPage uriString =
  case parseURI uriString of
    Just uri ->
      let request = "GET " ++ scheme uri ++ ":" ++ authority uri ++ path uri++ " HTTP/1.1\r\n\r\n"
      in
        do h <- connectTo (authority uri) (Service (scheme uri))
           hPutStr h request
           hFlush h
           page <- hGetContents h
           return page