Add null support for data property of InputEvent (#21)

* Add nullability support for data property of input events

* Update changelog

* Reference pull request in changelog

Author: kobijones111529

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,8 +1,19 @@
-module Web.UIEvent.InputEvent where
+module Web.UIEvent.InputEvent
+  ( InputEvent
+  , data_
+  , fromEvent
+  , fromUIEvent
+  , isComposing
+  , toEvent
+  , toUIEvent
+  ) where
+
+import Prelude
 
 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)
@@ -23,7 +34,10 @@ 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