Source file storage_browser.ml

open Ezjs_min
open Promise
include Browser_common.Storage

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