open Lwt.Infix

let closure () =
  let e, e_push   = React.E.create () in
  let _ = React.E.map (fun _ -> print_endline "e changed!") e_config in
  let api = { settings    = (fun s -> send (Set_settings s) (* returns Lwt thread *)
                                      >>= (fun x -> e_push storage#get; Lwt.return x))
            }
  in
  api