Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
fix example for Lwt in Orpc_js_client
  • Loading branch information
duckpilot committed Jul 27, 2010
1 parent c16eaed commit cf82171
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 3 deletions.
6 changes: 4 additions & 2 deletions examples/clicks-comet/clicks.ml
Expand Up @@ -13,8 +13,10 @@ Dom.window#_set_onload begin fun () ->

let module Server = Proto_js_clnt.Lwt(struct let with_client f = f client end) in

let on_connect _ = ignore(Server.clicks () >>= fun n -> set_clicks n; Lwt.return ()) in
Orpc_js_client.connect client on_connect;
ignore
(Orpc_js_client.connect client >>=
Server.clicks >>=
fun n -> set_clicks n; Lwt.return ());

let click = (Dom.document#getElementById "click" : Dom.button) in
click#_set_onclick (fun _ ->
Expand Down
1 change: 0 additions & 1 deletion examples/clicks-comet/server.ml
Expand Up @@ -195,5 +195,4 @@ let spec = {
auto_close = true;
}

let _ = Http_common.debug := true
let _ = Lwt_main.run (Http_daemon.main spec)

0 comments on commit cf82171

Please sign in to comment.