objective categorical abstract machine language personal data server
Allow any auth header for unauthenticated methods
+1
-7
+1
-7
pegasus/lib/auth.ml
+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; _} ->