socket question

[Hal Daume III]

suppose i want to write a stupid ftp client, i want to connect to the ftp
server, wait for it to give it's intro stuff (welcome to blah,
username: ) and then it wants input.  how do i do something like this?

so far, i have (don't laugh, this is the first socket haskell program i've
written.  ever.)

> connect cfg = withSocketsDo $ 
>     do h <- connectTo (remoteAddr cfg) (Service (remoteType cfg))
>        hWaitForInput h 1000
>        s <- readWhileAvailable h
>        return s
>
> readWhileAvailable h =
>     do b <- hReady h
>        if b
> 	 then do c <- hGetChar h
> 		 s <- readWhileAvailable h
> 		 return (c : s)
> 	 else do return []

but this doesn't seem to ever halt :)

if i get rid of the hWaitForInput, it returns immediately with nothing.

if i replace hWaitForInput...readWhileAvailable with "s <- getContents h
; return (take 10 s)" i get the beginning of the intro message (so it is
connecting properly).

please someone help me :)


--
Hal Daume III

 "Computer science is no more about computers    | hdaume@isi.edu
  than astronomy is about telescopes." -Dijkstra | www.isi.edu/~hdaume