Merge pull request #50 from eskimor/close_error_event

Added properties of CloseEvent & ErrorEvent

Author: garyb

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;
+};

src/DOM/Event/CloseEvent.purs

@@ -0,0 +1,13 @@
+module DOM.Event.CloseEvent
+  ( code
+  , reason
+  , wasClean
+  ) where
+
+import Data.Maybe.Unsafe as U
+import DOM.Event.Types (CloseEvent)
+
+
+foreign import code :: CloseEvent -> Int
+foreign import reason :: CloseEvent -> String
+foreign import wasClean :: CloseEvent -> Boolean

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;
+};

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