Skip to content

Commit

Permalink
more pattern matching
Browse files Browse the repository at this point in the history
  • Loading branch information
nadako committed Feb 18, 2020
1 parent 04d37fb commit 273154e
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion src/typing/typeloadParse.ml
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit 273154e

Please sign in to comment.