+3 -1

frontend/src/templates/OauthAuthorizePage.mlx

reviewed

··· 13 13 type props = 14 14 { client_url: string * string (* (host, path) *) 15 15 ; client_name: string option [@default None] 16 16 + ; logo_uri: string option [@default None] 16 17 ; current_user: actor 17 18 ; logged_in_users: actor list 18 19 ; scopes: string list ··· 529 530 ~props: 530 531 ({ client_url 531 532 ; client_name 533 533 + ; logo_uri 532 534 ; current_user 533 535 ; logged_in_users 534 536 ; scopes ··· 560 562 in 561 563 let add_account_url = "/account/login" ^ query_string in 562 564 let favicon_url, set_favicon_url = 563 563 - useState (fun () -> "https://" ^ host ^ "/favicon.ico") 565 565 + useState (fun () -> (Option.value logo_uri ~default:("https://" ^ host ^ "/favicon.ico")) ) 564 566 in 565 567 <form className="w-full h-auto max-w-lg px-4 sm:px-0"> 566 568 <h1 className="text-2xl font-serif text-mana-200 mb-2">

+2 -1

pegasus/lib/api/oauth_/authorize.ml

reviewed

··· 93 93 , Uri.path uri ) 94 94 in 95 95 let client_url = (host, path) in 96 96 - let client_name = metadata.client_name in 96 96 + let {client_name; logo_uri; _} = metadata in 97 97 let%lwt current_user, logged_in_users = 98 98 Session.list_logged_in_actors ctx.req ctx.db 99 99 in ··· 106 106 ~props: 107 107 { client_url 108 108 ; client_name 109 109 + ; logo_uri 109 110 ; logged_in_users 110 111 ; current_user 111 112 ; scopes