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 =
|
||||
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
|
||||
|
|
Loading…
Reference in New Issue