Parcourir la source

Name making the purpose of the variable clearer

Leo il y a 9 ans
Parent
commit
ef6bdcc4a1
1 fichiers modifiés avec 2 ajouts et 2 suppressions
  1. 2 2
      src/tmp_file.ml

+ 2 - 2
src/tmp_file.ml

@@ -171,13 +171,13 @@ let reset ~rc cmd cmd_num =
     |> List.map ~f:(fun (i , str) -> str ^ ": " ^ (Int.to_string i))
     |> List.iter ~f:(fun s -> Messages.debug s);
 
-  let log' = get_accurate_log ~tmp:(init ()) () in
+  let ac_log = get_accurate_log ~tmp:(init ()) () in
   (* The command (string) corresponding to the number *)
   let cmd_str = (File_com.num_cmd2cmd ~rc cmd_num |> function Some s -> s
                                   | None -> failwith "Out of bound") in
 
   (* Current number of launch for that cmd *)
-  let i = List.Assoc.find_exn log' cmd_str in
+  let i = List.Assoc.find_exn ac_log cmd_str in
     sprintf  "Last N for command '%s' was %i"
       cmd_str
       i