objective categorical abstract machine language personal data server
Fix getFeed proxying
+5
-4
+5
-4
pegasus/lib/api/proxy/appBskyFeedGetFeed.ml
+5
-4
pegasus/lib/api/proxy/appBskyFeedGetFeed.ml
···
19
19
| Ok did_doc -> (
20
20
let pds_host =
21
21
match
22
-
Option.bind
23
-
(Id_resolver.Did.Document.get_service did_doc "#atproto_pds")
24
-
(fun s -> s |> Uri.of_string |> Uri.host )
22
+
Id_resolver.Did.Document.get_service did_doc "#atproto_pds"
25
23
with
26
24
| Some endpoint ->
27
25
endpoint
···
50
48
~lxm:"app.bsky.feed.getFeedSkeleton"
51
49
| None ->
52
50
Errors.invalid_request "missing proxy header" )
53
-
with _ ->
51
+
with e ->
52
+
Dream.error (fun log ->
53
+
log "failed to fetch feed generator record: %s"
54
+
(Printexc.to_string e) ) ;
54
55
Errors.internal_error ~msg:"failed to fetch feed generator record"
55
56
() ) ) )