Module Forum_services

module Forum_services : sig..end

Author(s): Vincent Balat, Boris Yakobowski

val Forum_services.​(**) : 
  ('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 Forum_services.​(=)

: 'a Lwt.t -> ('a -> 'b Lwt.t) -> 'b Lwt.t>>

val Forum_services.​forum_action_eref : Forum.forum_action_info option Eliom_reference.eref

val Forum_services.​set_forum_action : Forum.forum_action_info -> unit Lwt.t

val Forum_services.​register_services : 
  unit ->
  ((unit,
    string *
    ((Forum_types.message, Forum_types.forum) Eliom_parameter.binsum *
     (string option * string)),
    [> `Nonattached of [> `Post ] Eliom_service.na_s ],
    [ `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 ], 'a)
   Eliom_service.service,
   (unit, Forum_types.message,
    [> `Nonattached of [> `Post ] Eliom_service.na_s ],
    [ `WithoutSuffix ], unit,
    [ `One of Forum_types.message ] Eliom_parameter.param_name,
    [< Eliom_service.registrable > `Registrable ], 'b)
   Eliom_service.service,
   (Forum_types.message, unit,
    [> `Attached of
         ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
    [ `WithoutSuffix ],
    [ `One of Forum_types.message ] Eliom_parameter.param_name, unit,
    [< Eliom_service.registrable > `Registrable ], 'c)
   Eliom_service.service,
   (Forum_types.forum, unit,
    [> `Attached of
         ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
    [ `WithoutSuffix ],
    [ `One of Forum_types.forum ] Eliom_parameter.param_name, unit,
    [< Eliom_service.registrable > `Registrable ], 'd)
   Eliom_service.service)
  Forum_types.forum_services

val Forum_services.​path_edit_forum : string list

val Forum_services.​path_create_forum : string list

val Forum_services.​edit_forum : 
  (Forum_types.forum, unit,
   [> `Attached of
        ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ],
   [ `One of Forum_types.forum ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service

val Forum_services.​create_forum : 
  (unit, unit,
   [> `Attached of
        ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service

val Forum_services.​view_forums : 
  (unit, unit,
   [> `Attached of
        ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service