From 96c8133180c32c06d6167826c57f6996d89f6d49 Mon Sep 17 00:00:00 2001
From: Jules Villard <jul@fb.com>
Date: Thu, 12 Jan 2017 07:35:25 -0800
Subject: [PATCH] [nit] less indentation in Infer.log_build_cmd

Summary: a bit easier to read

Reviewed By: sblackshear

Differential Revision: D4409480

fbshipit-source-id: 8bee315
---
 infer/src/backend/infer.ml | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/infer/src/backend/infer.ml b/infer/src/backend/infer.ml
index e09d31405..94fa27287 100644
--- a/infer/src/backend/infer.ml
+++ b/infer/src/backend/infer.ml
@@ -363,21 +363,21 @@ let fail_on_issue_epilogue () =
   | None -> ()
 
 let log_build_cmd build_mode build_cmd =
-  if Config.debug_mode || Config.stats_mode then (
-    let log_arg arg =
-      L.out "Arg: %s@\n" arg;
-      if (build_mode = Java || build_mode = Javac) && (String.is_prefix arg ~prefix:"@") then (
-        let fname = String.slice arg 1 (String.length arg) in
-        match In_channel.input_lines (In_channel.create fname) with
-        | lines ->
-            L.out "-- Contents of '%s'@\n" fname;
-            L.out "%s@\n" (String.concat ~sep:"\n" lines);
-            L.out "-- /Contents of '%s'@\n" fname;
-        | exception exn ->
-            L.out "  Error reading file '%s':@\n  %a@." fname Exn.pp exn
-      ) in
-    List.iter ~f:log_arg build_cmd
-  )
+  L.out "INFER_ARGS=%s@." (Option.value (Sys.getenv CLOpt.args_env_var) ~default:"<not found>");
+  L.out "Project root = %s@." Config.project_root;
+  let log_arg arg =
+    L.out "Arg: %s@\n" arg;
+    if (build_mode = Java || build_mode = Javac) && (String.is_prefix arg ~prefix:"@") then (
+      let fname = String.slice arg 1 (String.length arg) in
+      match In_channel.input_lines (In_channel.create fname) with
+      | lines ->
+          L.out "-- Contents of '%s'@\n" fname;
+          L.out "%s@\n" (String.concat ~sep:"\n" lines);
+          L.out "-- /Contents of '%s'@\n" fname;
+      | exception exn ->
+          L.out "  Error reading file '%s':@\n  %a@." fname Exn.pp exn
+    ) in
+  List.iter ~f:log_arg build_cmd
 
 let () =
   let build_cmd = IList.rev Config.rest in
@@ -396,11 +396,11 @@ let () =
   L.set_log_file_identifier Config.current_exe None ;
   if Config.print_builtins then Builtin.print_and_exit () ;
   if Config.is_originator then L.do_out "%s@\n" Config.version_string ;
+  if Config.debug_mode || Config.stats_mode then log_build_cmd build_mode build_cmd;
   (* infer might be called from a Makefile and itself uses `make` to run the analysis in parallel,
      but cannot communicate with the parent make command. Since infer won't interfere with them
      anyway, pretend that we are not called from another make to prevent make falling back to a
      mono-threaded execution. *)
-  log_build_cmd build_mode build_cmd;
   Unix.unsetenv "MAKEFLAGS";
   register_perf_stats_report () ;
   touch_start_file () ;