Merge pull request #12 from andys8/event-data-transfer

Events: Adds dataTransfers

Author: maddie927

Diff for: 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