diff options
author | Son Ho | 2022-03-03 18:27:17 +0100 |
---|---|---|
committer | Son Ho | 2022-03-03 18:27:17 +0100 |
commit | 6001c7241e50af8d9e1cd05fa2c97372a2ac9778 (patch) | |
tree | 2be68e2997fd04ee3ae3c8aaff541abed44f956d /src/main.ml | |
parent | 0154696ae7124f57e17c6a2eea3bf4e684ed7a8f (diff) |
In fun_id rename the variant Local to Regular
Diffstat (limited to '')
-rw-r--r-- | src/main.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/main.ml b/src/main.ml index 577ba666..6d4888f9 100644 --- a/src/main.ml +++ b/src/main.ml @@ -102,7 +102,8 @@ let () = let filename = match !filenames with | [ f ] -> - if not (Filename.check_suffix f ".llbc") then ( + (* TODO: update the extension *) + if not (Filename.check_suffix f ".cfim") then ( print_string "Unrecognized file extension"; fail ()) else if not (Sys.file_exists f) then ( |