Added ErrorEvent properties

Author: eskimor

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

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