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