matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

re-arrange short match to go to the top 

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-07-10 16:41:54 +07:00
parent 4860461ba3
commit a82e783f15
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/super_context.ml
View File

@ -420,6 +420,7 @@ end = struct
let rec get t ~dir =
match Hashtbl.find t.env dir with
| Some node -> node
| None ->
begin match Path.parent dir with
| None -> raise_notrace Exit
@ -428,7 +429,6 @@ end = struct
Hashtbl.add t.env dir node;
node
end
| Some node -> node
let get t ~dir =
match get t ~dir with