fix annoying bug re \n getting inserted.

endgameinc · Mar 12, 2021 · 2d9f74c · hcarty · Mar 15, 2021 · 2d9f74c
1 parent f4f3269
commit 2d9f74c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/agent/agent.ml b/agent/agent.ml
@@ -121,7 +121,8 @@ module File_transfer = struct
     | #Cohttp.Code.success_status ->
       let* f = Lwt_io.open_file ~mode:Output cmd.dst in
       let body = Cohttp_lwt.Body.to_stream rbody in
-      let* () = Lwt_io.write_lines f body in
+      let safe_write_lines oc lines = Lwt_stream.iter_s (fun line -> Lwt_io.write oc line) lines in
+      let* () = safe_write_lines f body in
       let* () = Lwt_io.close f in
       let () = out_push (Some "Download successful.\n") in
       Lwt.return true