[sledge] Minor simplification of outputting Report

Reviewed By: jvillard

Differential Revision: D24306088

fbshipit-source-id: f95356dca

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
+      Out_channel.output_lines chan
-        (Sexp.to_string (sexp_of_t {name= !name; entry})) ;
+        [Sexp.to_string (sexp_of_t {name= !name; entry})] )
-      Out_channel.newline chan )
 
 let init ?append filename =
   (chan :=