objective categorical abstract machine language personal data server
Fix NSID authority resolution not reversing domain before lookup
+4
-1
+4
-1
pegasus/lib/lexicon_resolver.ml
+4
-1
pegasus/lib/lexicon_resolver.ml
···
32
32
(* resolve did authority for nsid *)
33
33
let resolve_did_authority nsid =
34
34
let authority = Util.Syntax.nsid_authority nsid in
35
+
let domain =
36
+
authority |> String.split_on_char '.' |> List.rev |> String.concat "."
37
+
in
35
38
try%lwt
36
39
let%lwt result =
37
40
Dns_client_lwt.getaddrinfo dns_client Dns.Rr_map.Txt
38
-
(Domain_name.of_string_exn ("_lexicon." ^ authority))
41
+
(Domain_name.of_string_exn ("_lexicon." ^ domain))
39
42
in
40
43
match result with
41
44
| Ok (_, t) -> (