From 463e63bd7d8616f802a334e6889293140ba07934 Mon Sep 17 00:00:00 2001 From: andys8 Date: Tue, 15 Sep 2020 20:26:15 +0200 Subject: [PATCH] Events: Adds dataTransfers --- src/React/Basic/DOM/Events.purs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/React/Basic/DOM/Events.purs b/src/React/Basic/DOM/Events.purs index c597bee..5c5f004 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 ) where import Prelude @@ -181,6 +182,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