Hi all,
I've written the following program to connect to a submit an HTTP GET
request to a server and print the response:
module Main where
import Network
import System.IO
main = withSocketsDo go
go = do putStrLn "Connecting..."
out <- connectTo "haskell.org" (PortNumber 80)
hPutStrLn out "GET /\r"
hPutStrLn out "Host: haskell.org\r"
hPutStrLn out "\r"
cs <- hGetLine out
hClose out
print cs
When I run the program, however, I get the following error:
HTTPClient: <socket: 1872>: hGetLine: end of file
Can anyone see what's wrong?
E.
_______________________________________________
Haskell-Cafe mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/haskell-cafe
