From fc2783809a95a6e25348595ba10892f25127f366 Mon Sep 17 00:00:00 2001
From: Robert Klotzner <robert.klotzner@gmx.at>
Date: Tue, 7 Jun 2016 19:07:22 +0200
Subject: [PATCH 1/2] Added CloseEvent properties

---
 src/DOM/Event/CloseEvent.js   | 15 +++++++++++++++
 src/DOM/Event/CloseEvent.purs | 21 +++++++++++++++++++++
 2 files changed, 36 insertions(+)
 create mode 100644 src/DOM/Event/CloseEvent.js
 create mode 100644 src/DOM/Event/CloseEvent.purs

diff --git a/src/DOM/Event/CloseEvent.js b/src/DOM/Event/CloseEvent.js
new file mode 100644
index 0000000..5144a4f
--- /dev/null
+++ b/src/DOM/Event/CloseEvent.js
@@ -0,0 +1,15 @@
+"use strict";
+
+// module DOM.Event.CloseEvent
+
+exports.code = function (e) {
+  e.code;
+};
+
+exports.reason = function (e) {
+  e.reason;
+};
+
+exports.wasClean = function (e) {
+  e.wasClean;
+};
diff --git a/src/DOM/Event/CloseEvent.purs b/src/DOM/Event/CloseEvent.purs
new file mode 100644
index 0000000..3c891c1
--- /dev/null
+++ b/src/DOM/Event/CloseEvent.purs
@@ -0,0 +1,21 @@
+module DOM.Event.CloseEvent
+  ( code
+  , reason
+  , wasClean
+  ) where
+
+import Prelude
+
+import Control.Monad.Eff (Eff())
+
+import Data.Enum (toEnum)
+import qualified Data.Maybe.Unsafe as U
+
+import DOM
+import DOM.Event.EventPhase
+import DOM.Event.Types
+import DOM.Node.Types
+
+foreign import code :: CloseEvent -> Int
+foreign import reason :: CloseEvent -> String
+foreign import wasClean :: CloseEvent -> Boolean

From 1ae5bbf95e85fdcd59c701d23a66fd77565c2a9c Mon Sep 17 00:00:00 2001
From: Robert Klotzner <robert.klotzner@gmx.at>
Date: Tue, 7 Jun 2016 19:17:36 +0200
Subject: [PATCH 2/2] Added ErrorEvent properties

---
 src/DOM/Event/CloseEvent.purs | 12 ++----------
 src/DOM/Event/ErrorEvent.js   | 19 +++++++++++++++++++
 src/DOM/Event/ErrorEvent.purs | 13 +++++++++++++
 3 files changed, 34 insertions(+), 10 deletions(-)
 create mode 100644 src/DOM/Event/ErrorEvent.js
 create mode 100644 src/DOM/Event/ErrorEvent.purs

diff --git a/src/DOM/Event/CloseEvent.purs b/src/DOM/Event/CloseEvent.purs
index 3c891c1..b29fa49 100644
--- a/src/DOM/Event/CloseEvent.purs
+++ b/src/DOM/Event/CloseEvent.purs
@@ -4,17 +4,9 @@ module DOM.Event.CloseEvent
   , wasClean
   ) where
 
-import Prelude
+import Data.Maybe.Unsafe as U
+import DOM.Event.Types (CloseEvent)
 
-import Control.Monad.Eff (Eff())
-
-import Data.Enum (toEnum)
-import qualified Data.Maybe.Unsafe as U
-
-import DOM
-import DOM.Event.EventPhase
-import DOM.Event.Types
-import DOM.Node.Types
 
 foreign import code :: CloseEvent -> Int
 foreign import reason :: CloseEvent -> String
diff --git a/src/DOM/Event/ErrorEvent.js b/src/DOM/Event/ErrorEvent.js
new file mode 100644
index 0000000..88338c8
--- /dev/null
+++ b/src/DOM/Event/ErrorEvent.js
@@ -0,0 +1,19 @@
+"use strict";
+
+// module DOM.Event.ErrorEvent
+
+exports.message = function (e) {
+  e.message;
+};
+
+exports.fileName = function (e) {
+  e.filename;
+};
+
+exports.lineNo = function (e) {
+  e.lineno;
+};
+
+exports.colNo = function (e) {
+  e.colno;
+};
diff --git a/src/DOM/Event/ErrorEvent.purs b/src/DOM/Event/ErrorEvent.purs
new file mode 100644
index 0000000..1c8c821
--- /dev/null
+++ b/src/DOM/Event/ErrorEvent.purs
@@ -0,0 +1,13 @@
+module DOM.Event.ErrorEvent
+  ( message
+  , fileName
+  , lineNo
+  , colNo
+  ) where
+
+import DOM.Event.Types (ErrorEvent)
+
+foreign import message :: ErrorEvent -> String
+foreign import fileName :: ErrorEvent -> String
+foreign import lineNo :: ErrorEvent -> Int
+foreign import colNo :: ErrorEvent -> Int