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..b29fa49 --- /dev/null +++ b/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 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