Add null support for data property of InputEvent

CHANGELOG.md

@@ -5,6 +5,7 @@ Notable changes to this project are documented in this file. The format is based
 ## [Unreleased]
 
 Breaking changes:
+- Add null support for `data` property of `InputEvent` (#21)
 
 New features:
 

src/Web/UIEvent/InputEvent.js

@@ -1,4 +1,4 @@
-export function data_(e) {
+export function _data_(e) {
   return e.data;
 }
 

src/Web/UIEvent/InputEvent.purs

@@ -1,6 +1,17 @@
-module Web.UIEvent.InputEvent where
+module Web.UIEvent.InputEvent
+  ( InputEvent
+  , data_
+  , fromEvent
+  , fromUIEvent
+  , isComposing
+  , toEvent
+  , toUIEvent
+  ) where
+
+import Prelude
 
 import Data.Maybe (Maybe)
+import Data.Nullable (Nullable, toMaybe)
 import Unsafe.Coerce (unsafeCoerce)
 import Web.Event.Event (Event)
 import Web.Internal.FFI (unsafeReadProtoTagged)
@@ -20,6 +31,9 @@ toUIEvent = unsafeCoerce
 toEvent :: InputEvent -> Event
 toEvent = unsafeCoerce
 
-foreign import data_ :: InputEvent -> String
+foreign import _data_ :: InputEvent -> Nullable String
+
+data_ :: InputEvent -> Maybe String
+data_ = toMaybe <$> _data_
 
 foreign import isComposing :: InputEvent -> Boolean