fix example after rebase

anmonteiro · Jul 7, 2019 · dde7c67 · dde7c67
1 parent 09bccbb
commit dde7c67
Showing 1 changed file with 6 additions and 7 deletions.
diff --git a/examples/lwt/lwt_https_get.ml b/examples/lwt/lwt_https_get.ml
@@ -18,13 +18,12 @@ let main port host =
     Httpaf_examples.Client.print ~on_eof:(Lwt.wakeup_later notify_finished)
   in
   let headers = Headers.of_list [ "host", host ] in
-  let request_body =
-      Client.TLS.request
-      ~error_handler
-      ~response_handler
-      socket
-      (Request.create ~headers `GET "/")
-  in
+  Client.TLS.request
+    ~error_handler
+    ~response_handler
+    socket
+    (Request.create ~headers `GET "/")
+  >>= fun request_body ->
   Body.close_writer request_body;
   finished
 ;;