Remove superfluous string concatenation

[khatus.git] / src / ocaml / lib / khatus_cache.ml

diff --git a/src/ocaml/lib/khatus_cache.ml b/src/ocaml/lib/khatus_cache.ml
index 6a70e23..64b407d 100644 (file)
--- a/src/ocaml/lib/khatus_cache.ml
+++ b/src/ocaml/lib/khatus_cache.ml
@@ -36,9 +36,8 @@ let dump_to_channel {values; mtimes} ~node ~modul ~oc =
           }
         )
     in
-    output_string
-      oc
-      (msg ^ "\n")
+    output_string oc msg;
+    output_string oc "\n"
   )
 
 let (/) = Filename.concat