From 273154e6909540beae957968c33cc583847a834a Mon Sep 17 00:00:00 2001 From: Dan Korostelev Date: Mon, 17 Feb 2020 21:13:47 +0100 Subject: [PATCH] more pattern matching --- src/typing/typeloadParse.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/typing/typeloadParse.ml b/src/typing/typeloadParse.ml index 3de257cbb9d..4e44a2a1c56 100644 --- a/src/typing/typeloadParse.ml +++ b/src/typing/typeloadParse.ml @@ -123,9 +123,10 @@ let resolve_module_file com m remap p = | (EEnum d,_) :: _ -> d.d_meta | (EAbstract d,_) :: _ -> d.d_meta | (ETypedef d,_) :: _ -> d.d_meta + | (EStatic d,_) :: _ -> d.d_meta | [] -> [] in - let meta = match parse_result with + let meta = match parse_result with | ParseSuccess((_,decls),_,_) -> loop decls | ParseError _ -> [] in @@ -332,6 +333,7 @@ let parse_module ctx m p = | EEnum d -> build EPrivate d | ETypedef d -> build EPrivate d | EAbstract d -> build AbPrivate d + | EStatic d -> build (AStatic,null_pos) d | EImport _ | EUsing _ -> acc ) [(EImport (List.map (fun s -> s,null_pos) (!remap @ [snd m]),INormal),null_pos)] decls) else