diff --git a/src/React/Basic/DOM/Events.purs b/src/React/Basic/DOM/Events.purs index d4a8764..0207c16 100644 --- a/src/React/Basic/DOM/Events.purs +++ b/src/React/Basic/DOM/Events.purs @@ -41,6 +41,7 @@ module React.Basic.DOM.Events , clientY , button , buttons + , dataTransfer , clipboardData ) where @@ -182,6 +183,10 @@ button = unsafeEventFn \e -> toMaybe (unsafeCoerce e).button buttons :: EventFn SyntheticEvent (Maybe Int) buttons = unsafeEventFn \e -> toMaybe (unsafeCoerce e).buttons +-- | Drag event fields +dataTransfer :: EventFn SyntheticEvent (Maybe DataTransfer) +dataTransfer = unsafeEventFn \e -> toMaybe (unsafeCoerce e).dataTransfer + -- \ Shared keyboard + mouse fields ctrlKey :: EventFn SyntheticEvent (Maybe Boolean) ctrlKey = unsafeEventFn \e -> toMaybe (unsafeCoerce e).ctrlKey