Browse Source

Merge branch 'dev' of gitlab.com:WzukW/oclaunch into dev

  Conflicts:
 	src/command_def.ml
 	src/oclaunch.ml

All conflict were indentation/empty-line problems.
Leo 9 years ago
parent
commit
c0bcad2ba6
3 changed files with 4 additions and 2 deletions
  1. 2 0
      src/command_def.ml
  2. 1 2
      src/oclaunch.ml
  3. 1 0
      src/test/.merlin

+ 2 - 0
src/command_def.ml

@@ -270,6 +270,7 @@ let run ~version ~build_info () =
     |> run ~version ~build_info
     |> run ~version ~build_info
   in
   in
 
 
+  (* Return error code with exceptions *)
   let exit_code =
   let exit_code =
     match
     match
       hack_parse ()
       hack_parse ()
@@ -297,6 +298,7 @@ let run ~version ~build_info () =
   (* Display total running time, to float is a number of secconds *)
   (* Display total running time, to float is a number of secconds *)
   Messages.debug Time.(now () |> to_float |> (-.) start |> ( *. ) (-1.)
   Messages.debug Time.(now () |> to_float |> (-.) start |> ( *. ) (-1.)
   |> sprintf "Runned during %f second(s)");
   |> sprintf "Runned during %f second(s)");
+
   (* Reset display *)
   (* Reset display *)
   Messages.reset ();
   Messages.reset ();
 
 

+ 1 - 2
src/oclaunch.ml

@@ -47,6 +47,5 @@ let build_info = ( "Build with OCaml version " ^ (Sys.ocaml_version) ^ " on " ^
 
 
 let () =
 let () =
   Command_def.run ~version:version_number ~build_info:build_info ()
   Command_def.run ~version:version_number ~build_info:build_info ()
-  |> function
-    `Exit n -> exit n
+  |> function `Exit n -> exit n
 ;;
 ;;

+ 1 - 0
src/test/.merlin

@@ -1,3 +1,4 @@
 PKG oUnit alcotest core
 PKG oUnit alcotest core
 
 
 S ../
 S ../
+REC