diff options
| author | Joris | 2020-03-03 10:44:35 +0100 |
|---|---|---|
| committer | Joris | 2020-03-03 10:44:35 +0100 |
| commit | 5c636f11cdfed82634ee572645d765b704941b68 (patch) | |
| tree | 51e11a0cfbbab284985e98fcb558d2975209a9b2 /src/Dom/EventTarget.ml | |
| parent | a2880850a78fc36e2612215c83cbdeac0c980a5b (diff) | |
| download | tabata-5c636f11cdfed82634ee572645d765b704941b68.tar.gz tabata-5c636f11cdfed82634ee572645d765b704941b68.tar.bz2 tabata-5c636f11cdfed82634ee572645d765b704941b68.zip | |
Initialize views from JavaScript
Diffstat (limited to 'src/Dom/EventTarget.ml')
| -rw-r--r-- | src/Dom/EventTarget.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Dom/EventTarget.ml b/src/Dom/EventTarget.ml index 946a518..d1b0c02 100644 --- a/src/Dom/EventTarget.ml +++ b/src/Dom/EventTarget.ml @@ -1 +1,4 @@ -external value : Dom.eventTarget -> string option = "value" [@@bs.get] +external nullableValue : Dom.eventTarget -> string Js.Nullable.t = "value" + [@@bs.get] + +let value eventTarget = nullableValue eventTarget |> Js.Nullable.toOption |