Source file `storage_browser_common.ml`

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
open Ezjs_min
open Promise

class type storageChange = object
  method oldValue : 'a prop
  method newValue : 'a prop
end

class type storageArea = object
  method get : js_string t opt -> 'a promise t meth
  method get_arr : js_string t js_array t opt -> 'a promise t meth
  method get_o : 'a opt -> 'a promise t meth
  method getBytesInUse : js_string t opt -> int promise t meth
  method getBytesInUse_arr : js_string t js_array t opt -> int promise t meth
  method set : 'a -> unit promise t meth
  method remove : js_string t -> unit promise t meth
  method clear : unit promise t meth
end

class type storage = object
  method sync : storageArea t prop
  method local : storageArea t prop
  method managed : storageArea t prop
end

let storage : storage t = Unsafe.global##.browser##.storage
let local = storage##.local
let sync = storage##.sync
let managed = storage##.managed