caldav

A CalDAV server
IN THIS PACKAGE
Module Caldav . Webdav_server . Make . Wm
type 'a io = 'a Lwt.t
type !'a result = 'a Webmachine.Make(Lwt)(WmClock).result =
| Ok of 'a
| Error of int
type ('a, !'b) op = 'b Webmachine.Rd.t -> ('a result * 'b Webmachine.Rd.t) io constraint 'b = [> `Empty ]
type !'a provider = ( 'a, 'a ) op constraint 'a = [> `Empty ]
type !'a acceptor = ( bool, 'a ) op constraint 'a = [> `Empty ]
type www_authenticate = Webmachine.Make(Lwt)(WmClock).www_authenticate = {
scheme : string;
realm : string;
params : (string * string) list;
}
type auth = [
| `Authorized
| `Basic of string
| `Challenge of www_authenticate
| `Redirect of Uri.t
]
type property_response = [
| `Infinite_not_allowed
| `Multistatus
| `Ok
| `Property_forbidden
| `Property_not_found
| `Property_unauthorized
]
type report_response = [
| `Multistatus
| `Property_not_found
]
type collection_created_response = [
| `Conflict
| `Created
| `Forbidden
| `Insufficient_storage
| `Method_not_allowed
| `Unsupported_media_type
]
val continue : 'a -> ( 'a, [> `Empty ] ) op
val respond : ?body:[> `Empty ] as 'b -> int -> ( 'a, 'b ) op
class virtual !'a resource : object ... end
val to_handler : ?dispatch_path:string -> ?path_info:(string * string) list -> resource:[> `Empty ] as 'a resource -> body:'a -> request:Cohttp.Request.t -> unit -> (Cohttp.Code.status_code * Cohttp.Header.t * 'a * string list) io
val dispatch : ((Dispatch.tag * string) list * Dispatch.typ * ( unit -> [> `Empty ] as 'a resource )) list -> body:'a -> request:Cohttp.Request.t -> (Cohttp.Code.status_code * Cohttp.Header.t * 'a * string list) option io
val dispatch' : (string * ( unit -> [> `Empty ] as 'a resource )) list -> body:'a -> request:Cohttp.Request.t -> (Cohttp.Code.status_code * Cohttp.Header.t * 'a * string list) option io