Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
14 lines (12 sloc) 377 Bytes
module Event = {
type mouseDownEventType;
[@bs.get] external code : mouseDownEventType => string = "";
[@bs.get] external keyCode : mouseDownEventType => int = "";
};
module Document = {
/* hardcoded since we're only using this one */
[@bs.val] [@bs.scope "document"]
external addEventListener :
(string, Event.mouseDownEventType => unit) => unit =
"";
};