re-arrange short match to go to the top
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
4860461ba3
commit
a82e783f15
|
@ -420,6 +420,7 @@ end = struct
|
||||||
|
|
||||||
let rec get t ~dir =
|
let rec get t ~dir =
|
||||||
match Hashtbl.find t.env dir with
|
match Hashtbl.find t.env dir with
|
||||||
|
| Some node -> node
|
||||||
| None ->
|
| None ->
|
||||||
begin match Path.parent dir with
|
begin match Path.parent dir with
|
||||||
| None -> raise_notrace Exit
|
| None -> raise_notrace Exit
|
||||||
|
@ -428,7 +429,6 @@ end = struct
|
||||||
Hashtbl.add t.env dir node;
|
Hashtbl.add t.env dir node;
|
||||||
node
|
node
|
||||||
end
|
end
|
||||||
| Some node -> node
|
|
||||||
|
|
||||||
let get t ~dir =
|
let get t ~dir =
|
||||||
match get t ~dir with
|
match get t ~dir with
|
||||||
|
|
Loading…
Reference in New Issue