Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
112fa782
Commit
112fa782
authored
Sep 17, 2011
by
Andrei Paskevich
Browse files
fix error message in Main
parent
8051c0eb
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/driver/driver.ml
View file @
112fa782
...
...
@@ -267,7 +267,6 @@ let prepare_task drv task =
let
task
=
update_task
drv
task
in
List
.
fold_left
apply
task
transl
let
print_task_prepared
?
old
drv
fmt
task
=
let
p
=
match
drv
.
drv_printer
with
|
None
->
raise
NoPrinter
...
...
@@ -278,7 +277,6 @@ let print_task_prepared ?old drv fmt task =
in
fprintf
fmt
"@[%a@]@?"
(
printer
?
old
)
task
let
print_task
?
old
drv
fmt
task
=
let
task
=
prepare_task
drv
task
in
print_task_prepared
?
old
drv
fmt
task
...
...
@@ -291,7 +289,6 @@ let prove_task_prepared ~command ?timelimit ?memlimit ?old drv task =
Buffer
.
reset
buf
;
res
let
prove_task
~
command
?
timelimit
?
memlimit
?
old
drv
task
=
let
task
=
prepare_task
drv
task
in
prove_task_prepared
~
command
?
timelimit
?
memlimit
?
old
drv
task
...
...
src/main.ml
View file @
112fa782
...
...
@@ -342,7 +342,8 @@ let () = try
begin
match
!
opt_prover
with
|
Some
s
->
let
prover
=
try
Mstr
.
find
s
(
get_provers
config
)
with
|
Not_found
->
eprintf
"Driver %s not found.@."
s
;
exit
1
|
Not_found
->
eprintf
"Prover '%s' not found in %s@."
s
(
Whyconf
.
get_conf_file
config
);
exit
1
in
opt_command
:=
Some
prover
.
command
;
opt_driver
:=
Some
prover
.
driver
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment