diff options
Diffstat (limited to '')
-rw-r--r-- | compiler/Driver.ml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/compiler/Driver.ml b/compiler/Driver.ml index 1dbd611a..149e2aad 100644 --- a/compiler/Driver.ml +++ b/compiler/Driver.ml @@ -134,7 +134,7 @@ let () = match !opt_backend with | Some b -> backend := b | None -> - print_string "Backend not specified (use the `-backend` argument)\n"; + log#error "Backend not specified (use the `-backend` argument)"; fail () in @@ -151,7 +151,11 @@ let () = decompose_nested_let_patterns := true | Lean -> (* The Lean backend is experimental: print a warning *) - log#lwarning (lazy "The Lean backend is experimental") + log#lwarning (lazy "The Lean backend is experimental"); + (* We don't support fuel for the Lean backend *) + if !use_fuel then ( + log#error "The Lean backend doesn't support the -use-fuel option"; + fail ()) in (* Retrieve and check the filename *) |