On Thu, Jul 6, 2017 at 1:37 AM, Yaron Minsky <yminsky@janestreet.com> wrote:

The fact that you're ignoring the result of Pipe.iter is concerning. That function should return a deferred that becomes determined once the iteration is complete. It's hard to say without having a bit more of the program, but I suspect the bug is related to that.

The following fragment seems to do the trick.

```

fun () : unit Deferred.Or_error.t ->

Async_client.post ... uri >>= fun (_, body) ->

Async.Pipe.iter

~continue_on_error:true

~f:(fun s -> Deferred.return (printf "%s" s))

(Cohttp_async.Body.to_pipe body) >>| fun () ->

Ok ()

```

Thanks again.

Shayne Fletcher