diff --git a/CHANGELOG.md b/CHANGELOG.md index 3dcbba8..7780f7a 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -7,6 +7,7 @@ Notable changes to this project are documented in this file. The format is based Breaking changes: New features: +- Add support for `relatedTarget` field to `Event` (#32 by @ad-si) Bugfixes: diff --git a/src/Web/Event/Event.js b/src/Web/Event/Event.js index 07afefb..9d9adef 100644 --- a/src/Web/Event/Event.js +++ b/src/Web/Event/Event.js @@ -10,6 +10,10 @@ export function _currentTarget(e) { return e.currentTarget; } +export function _relatedTarget(e) { + return e.relatedTarget; +} + export function defaultPrevented(e) { return function() { return e.defaultPrevented; diff --git a/src/Web/Event/Event.purs b/src/Web/Event/Event.purs index 63b0b78..bed3cc6 100644 --- a/src/Web/Event/Event.purs +++ b/src/Web/Event/Event.purs @@ -4,6 +4,7 @@ module Web.Event.Event , type_ , target , currentTarget + , relatedTarget , eventPhase , stopPropagation , stopImmediatePropagation @@ -48,6 +49,12 @@ currentTarget = toMaybe <<< _currentTarget foreign import _currentTarget :: Event -> Nullable EventTarget +-- | The secondary target for the event. +relatedTarget :: Event -> Maybe EventTarget +relatedTarget = toMaybe <<< _relatedTarget + +foreign import _relatedTarget :: Event -> Nullable EventTarget + -- | Indicates which phase of the event flow that is currently being processed -- | for the event. eventPhase :: Partial => Event -> EventPhase