Add 2 ** n function; support providing type variables to other files when lexing

1 files changed, 1 insertions, 1 deletions

diff --git a/src/process_file.ml b/src/process_file.ml
index b38ec0c5..deca5d53 100644
--- a/src/process_file.ml
+++ b/src/process_file.ml
@@ -73,7 +73,7 @@ let parse_file (f : string) : Parse_ast.defs =
           raise (Reporting_basic.Fatal_error (Reporting_basic.Err_syntax_locn (l, m)))
       | Lexer.LexError(s,p) ->
           raise (Reporting_basic.Fatal_error (Reporting_basic.Err_lex (p, s))) in
-  let () = Lexer.custom_type_names := type_names in
+  let () = Lexer.custom_type_names := !Lexer.custom_type_names @ type_names in
   let lexbuf = get_lexbuf f in
     try
       Parser.file Lexer.token lexbuf