blob: de11499efe9c5fb511a1adc875ba163bfcef7dab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
type file = Elements.Input.file
type t = file option
let create
: unit -> t Note.signal * Brr.El.t
= fun () ->
let add_file_event, i = Elements.Input.file_loader
(Jstr.v ".json") in
let state = Note.S.hold
None
(Note.E.map (fun v -> Some v) add_file_event)
in
( state
, i )
|