Skip to content
Browse files

Bring labels into scope.

  • Loading branch information...
1 parent 96ac28a commit 31ac7b7ce4484e048574ffa25b2752e09c633966 @yallop yallop committed Apr 1, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 async/cohttp_async.ml
View
2 async/cohttp_async.ml
@@ -72,7 +72,7 @@ module Client = struct
let ic, oc = IO.create ic oc in
(* Establish the remote HTTP connection *)
call ?headers ~chunked ?body:response_body meth uri
- {body; body_end; failure; response} ic oc >>
+ Response.State_types.({body; body_end; failure; response}) ic oc >>= fun () ->
Ivar.read ivar >>= fun x ->
return (Some x)
)

0 comments on commit 31ac7b7

Please sign in to comment.
Something went wrong with that request. Please try again.