diff --git a/CHANGELOG.md b/CHANGELOG.md
index f5a524a..55d4d06 100644
--- a/CHANGELOG.md
+++ b/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:
 
diff --git a/src/Web/UIEvent/InputEvent.js b/src/Web/UIEvent/InputEvent.js
index 7fe535b..26d4e7f 100644
--- a/src/Web/UIEvent/InputEvent.js
+++ b/src/Web/UIEvent/InputEvent.js
@@ -1,4 +1,4 @@
-export function data_(e) {
+export function _data_(e) {
   return e.data;
 }
 
diff --git a/src/Web/UIEvent/InputEvent.purs b/src/Web/UIEvent/InputEvent.purs
index 09d1236..996cf66 100644
--- a/src/Web/UIEvent/InputEvent.purs
+++ b/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