Warning: Reason support is experimental. We are looking for beta-tester and contributors.

Module Forum_services

module Forum_services : sig..end

Author(s): Vincent Balat, Boris Yakobowski


val ( ** ) : 
  ('a, [ `WithoutSuffix ], 'b) Eliom_parameter.params_type ->
  ('c, [< `Endsuffix | `WithoutSuffix ] as 'd, 'e)
  Eliom_parameter.params_type ->
  ('a * 'c, 'd, 'b * 'e) Eliom_parameter.params_type
val (>>=) : 'a Lwt.t -> ('a -> 'b Lwt.t) -> 'b Lwt.t
val forum_action_eref : Forum.forum_action_info option Eliom_reference.eref
val set_forum_action : Forum.forum_action_info -> unit Lwt.t
val register_services : 
  unit ->
  ((unit,
   string *
   ((Forum_types.message, Forum_types.forum) Eliom_parameter.binsum *
   (string option * string)),
   [< Eliom_service.service_method > `Post ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ], unit,
   [ `One of string ] Eliom_parameter.param_name *
   (([ `One of Forum_types.message ] Eliom_parameter.param_name *
   [ `One of Forum_types.forum ] Eliom_parameter.param_name) *
   ([ `One of string ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name)),
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
   Eliom_service.service,
   (unit, Forum_types.message,
   [< Eliom_service.service_method > `Post ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ], unit,
   [ `One of Forum_types.message ] Eliom_parameter.param_name,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
   Eliom_service.service,
   (Forum_types.message, unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Attached ],
   [< Eliom_service.service_kind > `Service ], [ `WithoutSuffix ],
   [ `One of Forum_types.message ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
   Eliom_service.service,
   (Forum_types.forum, unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Attached ],
   [< Eliom_service.service_kind > `Service ], [ `WithoutSuffix ],
   [ `One of Forum_types.forum ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
   Eliom_service.service)
  Forum_types.forum_services
val path_edit_forum : string list
val path_create_forum : string list
val edit_forum : 
  (Forum_types.forum, unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Attached ],
   [< Eliom_service.service_kind > `Service ], [ `WithoutSuffix ],
   [ `One of Forum_types.forum ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val create_forum : 
  (unit, unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Attached ],
   [< Eliom_service.service_kind > `Service ], [ `WithoutSuffix ],
   unit, unit, [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val view_forums : 
  (unit, unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Attached ],
   [< Eliom_service.service_kind > `Service ], [ `WithoutSuffix ],
   unit, unit, [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service