/
Lightning.mli
32 lines (25 loc) · 950 Bytes
/
Lightning.mli
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
value deviceIdentifier: unit -> option string;
value init: (float -> float -> #Stage.c) -> unit;
value openURL : string -> unit;
value sendEmail : string -> ~subject:string -> ?body:string -> unit -> unit;
external memUsage: unit -> int = "ml_memUsage";
external setMaxGC: int64 -> unit = "ml_setMaxGC";
type malinfo =
{
malloc_total: int;
malloc_used: int;
malloc_free: int;
};
IFDEF PC THEN
value malinfo: unit -> malinfo;
ELSE
external malinfo: unit -> malinfo = "ml_malinfo";
ENDIF;
type remoteNotification = [= `RNBadge | `RNSound | `RNAlert ];
value request_remote_notifications: list remoteNotification -> (string -> unit) -> (string -> unit) -> unit;
value getLocale: unit -> string;
value addExceptionInfo: string -> unit;
value setSupportEmail: string -> unit;
value getMACID: unit -> string;
value extractAssetsIfRequired: (bool -> unit) -> unit;
value extractAssetsAndExpansionsIfRequired: (bool -> unit) -> unit;