mirror of
https://github.com/LCPQ/quantum_package
synced 2024-10-19 06:21:47 +02:00
Fixed #140
This commit is contained in:
parent
d4357a0042
commit
21143afb4f
@ -54,7 +54,11 @@ let run ~master exe ezfio_file =
|
|||||||
|
|
||||||
let executables = Lazy.force Qpackage.executables in
|
let executables = Lazy.force Qpackage.executables in
|
||||||
if (not (List.exists ~f:(fun (x,_) -> x = exe) executables)) then
|
if (not (List.exists ~f:(fun (x,_) -> x = exe) executables)) then
|
||||||
failwith ("Executable "^exe^" not found");
|
begin
|
||||||
|
Printf.printf "\nPossible choices:\n";
|
||||||
|
List.iter executables ~f:(fun (x,_) -> Printf.printf "* %s\n%!" x);
|
||||||
|
failwith ("Executable "^exe^" not found")
|
||||||
|
end;
|
||||||
|
|
||||||
Printf.printf "%s\n" (Time.to_string time_start);
|
Printf.printf "%s\n" (Time.to_string time_start);
|
||||||
Printf.printf "===============\nQuantum Package\n===============\n\n";
|
Printf.printf "===============\nQuantum Package\n===============\n\n";
|
||||||
@ -96,8 +100,8 @@ let run ~master exe ezfio_file =
|
|||||||
| None -> ""
|
| None -> ""
|
||||||
and exe =
|
and exe =
|
||||||
match (List.find ~f:(fun (x,_) -> x = exe) executables) with
|
match (List.find ~f:(fun (x,_) -> x = exe) executables) with
|
||||||
| None -> assert false
|
|
||||||
| Some (_,x) -> x^" "
|
| Some (_,x) -> x^" "
|
||||||
|
| None -> assert false
|
||||||
in
|
in
|
||||||
match (Sys.command (prefix^exe^ezfio_file)) with
|
match (Sys.command (prefix^exe^ezfio_file)) with
|
||||||
| 0 -> ()
|
| 0 -> ()
|
||||||
|
Loading…
Reference in New Issue
Block a user