From 5c636f11cdfed82634ee572645d765b704941b68 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 3 Mar 2020 10:44:35 +0100
Subject: Initialize views from JavaScript

---
 src/Dom/EventTarget.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Dom/EventTarget.ml')

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
-- 
cgit v1.2.3