Accept .lus file extension

7 years ago · 685c3aa862
parent 66da5f4b5c
commit 685c3aa862
1 changed files with 1 additions and 1 deletions
--- a/compiler/main/heptc.ml
+++ b/compiler/main/heptc.ml
@ -117,7 +117,7 @@ let compile source_f =
  source_f |> Filename.dirname |> add_include;
  check_options ();
  match Misc.file_extension source_f with
-    | "ept" -> compile_program modname source_f
+    | "ept" | "lus" -> compile_program modname source_f
    | "epi" -> compile_interface modname source_f
    | ext -> raise (Arg.Bad ("Unknow file type: " ^ ext ^ " for file: " ^ source_f))