jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Accept .lus file extension

Browse source
This commit is contained in:
Timothy Bourke 2017-01-21 17:59:11 +01:00 committed by Gwenaël Delaval
parent 66da5f4b5c
commit 685c3aa862
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/main/heptc.ml
View file

@ -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))