Source file `storage_browser_lwt.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
open Ezjs_min_lwt
open Promise
include Browser_common.Storage

let get ?key (st:storageArea t) =
  to_lwt @@ st##get (opt string key)
let get_arr ?keys (st:storageArea t) =
  let keys = opt (of_listf string) keys in
  to_lwt @@ st##get_arr keys
let get_o ?obj (st:storageArea t) =
  to_lwt @@ st##get_o (Opt.option obj)
let getBytesInUse ?key (st:storageArea t) =
  to_lwt @@ st##getBytesInUse (opt string key)
let getBytesInUse_list ?keys (st:storageArea t) =
  to_lwt @@ st##getBytesInUse_arr (opt (of_listf string) keys)
let set ?callback (st:storageArea t) o =
  to_lwt_opt callback (st##set o)
let remove ?callback (st:storageArea t) s =
  to_lwt_opt callback @@ st##remove (string s)
let clear ?callback (st:storageArea t) =
  to_lwt_opt callback st##clear