diff options
Diffstat (limited to 'contrib/extraction')
| -rw-r--r-- | contrib/extraction/common.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/extraction/common.ml b/contrib/extraction/common.ml index 2b713c5149..1d1383f60f 100644 --- a/contrib/extraction/common.ml +++ b/contrib/extraction/common.ml @@ -401,7 +401,7 @@ let print_structure_to_file f prm struc = else struct_ast_search (function MLmagic _ -> true | _ -> false) struc in (* print the implementation *) - let cout = option_app (fun (f,_) -> open_out f) f in + let cout = option_map (fun (f,_) -> open_out f) f in let ft = match cout with | None -> !Pp_control.std_ft | Some cout -> Pp_control.with_output_to cout in |