From 685c3aa8626fa5e99ed5a4241cd21abb6cbebdd7 Mon Sep 17 00:00:00 2001 From: Timothy Bourke Date: Sat, 21 Jan 2017 17:59:11 +0100 Subject: [PATCH] Accept .lus file extension --- compiler/main/heptc.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/main/heptc.ml b/compiler/main/heptc.ml index 18b5336..3e700e9 100644 --- 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))