Add support for relatedTarget

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:
 

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;

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