Parcourir la source

Improve debug message

Add ':' before debugging message preceding other ones, it may be prettier this
way.
Leo il y a 9 ans
Parent
commit
f502335d49
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  1. 1 1
      src/messages.ml

+ 1 - 1
src/messages.ml

@@ -106,7 +106,7 @@ let print ~color ~style message =
  * date and time *)
  * date and time *)
 let check_verbosity ?debug ~f function_number =
 let check_verbosity ?debug ~f function_number =
   (* Debugging function *)
   (* Debugging function *)
-  debug |> (function None -> () | Some debug_fonction -> debug_fonction "");
+  debug |> (function None -> () | Some debug_fonction -> debug_fonction ":");
 
 
   match function_number <= !Const.verbosity with
   match function_number <= !Const.verbosity with
     true -> (* Display the message *)
     true -> (* Display the message *)