forked from
jonmsterling.com/ocaml-forester
ocaml
in next-addr routine, only look at local trees
+7
-4
+7
-4
lib/compiler/URI_util.ml
+7
-4
lib/compiler/URI_util.ml
···
22
22
forest.index
23
23
|> URI.Tbl.to_seq
24
24
|> Seq.map fst
25
-
|> List.of_seq
26
25
in
26
+
let config = forest.config in
27
27
let keys =
28
-
let@ uri = List.filter_map @~ addrs in
29
-
let@ prefix', key = Option.bind @@ URI_scheme.split_addr uri in
30
-
if prefix = prefix' then Some key else None
28
+
List.of_seq @@
29
+
let@ uri = Seq.filter_map @~ addrs in
30
+
if URI.host config.url = URI.host uri then
31
+
let@ prefix', key = Option.bind @@ URI_scheme.split_addr uri in
32
+
if prefix = prefix' then Some key else None
33
+
else None
31
34
in
32
35
let next =
33
36
match mode with