Rename: log verbose.

Author: cristianoc

analysis/src/Commands.ml

@@ -297,12 +297,12 @@ let test ~path =
         if mlen >= 3 then (
           (match String.sub rest 0 3 with
           | "deb" ->
-            Log.spamError := true;
+            Log.verbose := true;
             print_endline
               ("Debug " ^ path ^ " " ^ string_of_int line ^ ":"
              ^ string_of_int col);
             let res = definition ~path ~line ~col in
-            Log.spamError := false;
+            Log.verbose := false;
             res
           | "def" ->
             print_endline

analysis/src/Log.ml

@@ -1,3 +1,3 @@
-let spamError = ref false
+let verbose = ref false
 
-let log msg = if !spamError then print_endline msg
+let log msg = if !verbose then print_endline msg

analysis/src/References.ml

@@ -22,7 +22,7 @@ let lineColToCmtLoc ~line ~col = (line + 1, col)
 let getLocItem ~full ~line ~col =
   let pos = lineColToCmtLoc ~line ~col in
   let locItems = locItemsForPos ~extra:full.extra pos in
-  if !Log.spamError then
+  if !Log.verbose then
     print_endline
       ("locItems:\n  "
       ^ (locItems |> List.map locItemToString |> String.concat "\n  "));