Commit 8e74b20e authored by Guillaume Melquiond's avatar Guillaume Melquiond

Remove redundant definitions.

parent 5e095316
......@@ -22,17 +22,6 @@ module Worker = Js_of_ocaml.Worker
module Dom_html = Js_of_ocaml.Dom_html
module XmlHttpRequest = Js_of_ocaml.XmlHttpRequest
let get_opt o = Js.Opt.get o (fun () -> assert false)
let check_def s o =
Js.Optdef.get o (fun () ->
log ("Object " ^ s ^ " is undefined or null");
assert false)
let get_global ident =
let res : 'a Js.optdef = JSU.(get global) (Js.string ident) in
check_def ident res
let int_of_js_string s = int_of_string (Js.to_string s)
let blob_url_of_string s =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment