From 0fbf523dfd739836df0b60bbeb53603b56defb62 Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Mon, 26 Apr 2021 13:46:27 +0100
Subject: [PATCH] Add bindings for MouseEvent.movement*

---
 src/Web/UIEvent/MouseEvent.js   | 8 ++++++++
 src/Web/UIEvent/MouseEvent.purs | 6 ++++++
 2 files changed, 14 insertions(+)

diff --git a/src/Web/UIEvent/MouseEvent.js b/src/Web/UIEvent/MouseEvent.js
index 120b47d..7c45d61 100644
--- a/src/Web/UIEvent/MouseEvent.js
+++ b/src/Web/UIEvent/MouseEvent.js
@@ -24,6 +24,14 @@ exports.pageY = function (e) {
   return e.pageY;
 };
 
+exports.movementX = function (e) {
+  return e.movementX;
+};
+
+exports.movementY = function (e) {
+  return e.movementY;
+};
+
 exports.ctrlKey = function (e) {
   return e.ctrlKey;
 };
diff --git a/src/Web/UIEvent/MouseEvent.purs b/src/Web/UIEvent/MouseEvent.purs
index 244efd9..507a53d 100644
--- a/src/Web/UIEvent/MouseEvent.purs
+++ b/src/Web/UIEvent/MouseEvent.purs
@@ -10,6 +10,8 @@ module Web.UIEvent.MouseEvent
   , clientY
   , pageX
   , pageY
+  , movementX
+  , movementY
   , ctrlKey
   , shiftKey
   , altKey
@@ -57,6 +59,10 @@ foreign import pageX :: MouseEvent -> Int
 
 foreign import pageY :: MouseEvent -> Int
 
+foreign import movementX :: MouseEvent -> Int
+
+foreign import movementY :: MouseEvent -> Int
+
 foreign import ctrlKey :: MouseEvent -> Boolean
 
 foreign import shiftKey :: MouseEvent -> Boolean