~ubuntu-branches/ubuntu/oneiric/ocsigen/oneiric

« back to all changes in this revision

Viewing changes to examples/miniforum/v2/services.ml

• browse files at revision 14
• compare with another revision
• download diff
• download tarball
• view history from revision 14

Show diffs side-by-side

added

removed

examples/miniforum/v2/services.ml

 

1

open Eliom_services

 

2

open Eliom_parameters

 

3

 

 

4

 

 

5

let mainpage = new_service ~path:[] ~get_params:unit ()

 

6

let msgpage = new_service  ~path:[] ~get_params:(int "n") ()

 

7

let addmsgpage = 

 

8

  new_post_service ~fallback:mainpage ~post_params:(string "msg") ()

 

9

let newmsgpage = new_service ~path:["newmessage"] ~get_params:unit ()

 

10

 

 

11

let connect_action = 

 

12

  new_post_coservice' ~name:"connect" ~post_params:(string "login") ()

 

13

let disconnect_action = 

 

14

  new_post_coservice' ~name:"disconnect" ~post_params:unit ()

 

15

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1