objective categorical abstract machine language personal data server
65
fork

Configure Feed

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

Allow any auth header for unauthenticated methods

futurGH f325423a 3505946f

+1 -7
+1 -7
pegasus/lib/auth.ml
··· 188 188 189 189 type verifier = ctx -> (credentials, exn) Lwt_result.t 190 190 191 - let unauthenticated : verifier = 192 - fun {req; _} -> 193 - match Dream.header req "authorization" with 194 - | Some _ -> 195 - Lwt.return_error @@ Errors.auth_required "invalid authorization header" 196 - | None -> 197 - Lwt.return_ok Unauthenticated 191 + let unauthenticated : verifier = fun _ -> Lwt.return_ok Unauthenticated 198 192 199 193 let admin : verifier = 200 194 fun {req; _} ->