Sockets on Solaris

Hi everyone, I'm having trouble using the Socket module on Solaris. The following program: import System import Socket import IO main = do d <- connectTo "localhost" (PortNumber 80) hPutStr d "GET / HTTP/1.0\n\n" hFlush d c <- (hGetContents d) putStr c fails with: Fail: invalid argument Action: getSocketOption Reason: Invalid argument I'm using ghc-5.02.1 . Thanks. __________________________________________________ Do You Yahoo!? Find a job, post your resume. http://careers.yahoo.com