objective categorical abstract machine language personal data server
65
fork

Configure Feed

Select the types of activity you want to include in your feed.

Fix NSID authority resolution not reversing domain before lookup

futurGH 9bbf2a3c f5dd05eb

+4 -1
+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) -> (