This notebook is used for testing
In [1]:
open Lwt
open Printf
Out[1]:
Out[1]:
In [2]:
XmlHttpRequest.(perform_raw_url "/static/temp.txt" >>= fun x -> printf "%s\n" x.content; return ())
Out[2]:
In [1]:
Printf.printf "hello\n"
Out[1]:
In [4]:
XmlHttpRequest.(perform_raw_url "/static/custom/custom.css" >>= fun x -> printf "%s\n" x.content; return ())
Out[4]:
In [5]:
Lwt_list.iter_s
Out[5]:
In [6]:
let condition = Lwt_condition.create()
Out[6]:
In [7]:
let _ = Lwt_condition.wait condition >>= (fun x -> printf "hello\n"; return 0)
Out[7]:
In [8]:
Lwt_condition.signal condition 1
Out[8]:
In [9]:
Firebug.console##log(Js.string "hello")
Out[9]:
In [10]:
let a =
lwt b = Lwt.return 0 in
Lwt.return b
Out[10]:
In [2]:
module Html5 = Html5.M
Out[2]:
In [3]:
let a= 1
Out[3]:
In [4]:
Array.init 1000 (fun i -> i)
Out[4]:
In [ ]: