[sledge] Minor simplification of outputting Report

Reviewed By: jvillard Differential Revision: D24306088 fbshipit-source-id: f95356dca
4 years ago · 73be4779ab
parent e2f0aab454
commit 73be4779ab
1 changed files with 2 additions and 3 deletions
--- a/sledge/src/report.ml
+++ b/sledge/src/report.ml
@ -127,9 +127,8 @@ let name = ref ""

 let output entry =
  Option.iter !chan ~f:(fun chan ->
-      Out_channel.output_string chan
-        (Sexp.to_string (sexp_of_t {name= !name; entry})) ;
-      Out_channel.newline chan )
+      Out_channel.output_lines chan
+        [Sexp.to_string (sexp_of_t {name= !name; entry})] )

 let init ?append filename =
  (chan :=