Erik de Castro Lopo wrote:
doConnect = do h <- connectTo phost (PortNumber $ fromIntegral pport) -- Need to send connectRequest and get a HTTP 200 response. return h
For this problem I do have the following solution: doConnect = do h <- connectTo phost (PortNumber $ fromIntegral pport) S8.hPutStr h $ toByteString connectRequest hFlush h din <- S.hGetSome h 1024 return h This does actually work correctly during my simplistic testing but this code doesn't really deserve to go into a package called http-enumerator :-). Erik -- ---------------------------------------------------------------------- Erik de Castro Lopo http://www.mega-nerd.com/