gistfile1.fs

let rec readUntilEOL' (line: string) (stream: NetworkStream) : Async<String> =
    printfn "readUntilEOL': %s %A" line stream
    async {
        if line.EndsWith(String.NLCR) then return line
        else
            let! output = stream.AsyncRead(1)
            let! result = readUntilEOL' (line + Encoding.ASCII.GetString(output)) stream
            return result
    }
    
let readUntilEOL : (NetworkStream -> Async<String>) = (readUntilEOL' "")

//Works:
readUntilEOL' "" stream
//Hangs:
readUntilEOL stream