From 357ba2b8506d23a352a4cd16599d3a5fa4de8f65 Mon Sep 17 00:00:00 2001
From: Gary Burgess <gary.burgess@gmail.com>
Date: Sun, 27 Nov 2016 00:37:39 +0000
Subject: [PATCH] Add HashChangeEvent accessors

---
 src/DOM/HTML/Event/HashChangeEvent.js   | 9 +++++++++
 src/DOM/HTML/Event/HashChangeEvent.purs | 6 ++++++
 2 files changed, 15 insertions(+)
 create mode 100644 src/DOM/HTML/Event/HashChangeEvent.js
 create mode 100644 src/DOM/HTML/Event/HashChangeEvent.purs

diff --git a/src/DOM/HTML/Event/HashChangeEvent.js b/src/DOM/HTML/Event/HashChangeEvent.js
new file mode 100644
index 0000000..9619f7c
--- /dev/null
+++ b/src/DOM/HTML/Event/HashChangeEvent.js
@@ -0,0 +1,9 @@
+"use strict";
+
+exports.oldURL = function (e) {
+  return e.oldURL;
+};
+
+exports.newURL = function (e) {
+  return e.newURL;
+};
diff --git a/src/DOM/HTML/Event/HashChangeEvent.purs b/src/DOM/HTML/Event/HashChangeEvent.purs
new file mode 100644
index 0000000..118de63
--- /dev/null
+++ b/src/DOM/HTML/Event/HashChangeEvent.purs
@@ -0,0 +1,6 @@
+module DOM.HTML.Event.HashChangeEvent where
+
+import DOM.HTML.Event.Types (HashChangeEvent)
+
+foreign import oldURL :: HashChangeEvent -> String
+foreign import newURL :: HashChangeEvent -> String