Module Restful.Auth

module Auth: sig .. end

type scheme =

`\|`	`Basic`
`\|`	`Digest`

module Cred: sig .. end

module Valid: sig .. end

val basic : validate:(Cred.result -> bool) ->
       realm:string ->
       ('a -> 'b -> Netcgi.cgi -> Nethttp.http_status) ->
       'a -> 'b -> Netcgi.cgi -> Nethttp.http_status