diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-06-14 12:56:03 +0200 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-06-14 12:56:03 +0200 |
| commit | a1eeb3abe387a89cd5a9108160643b6157f9c0af (patch) | |
| tree | e17a2b20e8c44126912acdf601124386349f3f89 /lib/aux_file.ml | |
| parent | ee08817e76f91cc67ba9d2ea8f79218e413e21b4 (diff) | |
| parent | c046c30e11d1658d5580c157ebb0d3e6d70fb4e4 (diff) | |
Merge remote-tracking branch 'origin/pr/166' into trunk
Add -o option to coqc
Diffstat (limited to 'lib/aux_file.ml')
| -rw-r--r-- | lib/aux_file.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/aux_file.ml b/lib/aux_file.ml index d06d4b376..096305b98 100644 --- a/lib/aux_file.ml +++ b/lib/aux_file.ml @@ -25,9 +25,9 @@ let mk_absolute vfile = if Filename.is_relative vfile then CUnix.correct_path vfile (Sys.getcwd ()) else vfile -let start_aux_file_for vfile = - let vfile = mk_absolute vfile in - oc := Some (open_out (aux_file_name_for vfile)); +let start_aux_file ~aux_file:output_file ~v_file = + let vfile = mk_absolute v_file in + oc := Some (open_out output_file); Printf.fprintf (Option.get !oc) "COQAUX%d %s %s\n" version (Digest.to_hex (Digest.file vfile)) vfile |