From 60a4a3d74b1b6f4a3e7db0066d162c5285bb5f72 Mon Sep 17 00:00:00 2001
From: Konstantin Zudov <co@zudov.me>
Date: Fri, 26 Feb 2016 07:16:03 +0200
Subject: [PATCH] Basic DataTransfer binding

---
 src/DOM/Event/DragEvent/DataTransfer.js   | 5 +++++
 src/DOM/Event/DragEvent/DataTransfer.purs | 9 +++++++++
 2 files changed, 14 insertions(+)
 create mode 100644 src/DOM/Event/DragEvent/DataTransfer.js
 create mode 100644 src/DOM/Event/DragEvent/DataTransfer.purs

diff --git a/src/DOM/Event/DragEvent/DataTransfer.js b/src/DOM/Event/DragEvent/DataTransfer.js
new file mode 100644
index 0000000..d827b03
--- /dev/null
+++ b/src/DOM/Event/DragEvent/DataTransfer.js
@@ -0,0 +1,5 @@
+// module DOM.Event.DragEvent.DataTransfer
+
+exports.files = function(dataTransfer) {
+  return dataTransfer.files;
+}
diff --git a/src/DOM/Event/DragEvent/DataTransfer.purs b/src/DOM/Event/DragEvent/DataTransfer.purs
new file mode 100644
index 0000000..da6802c
--- /dev/null
+++ b/src/DOM/Event/DragEvent/DataTransfer.purs
@@ -0,0 +1,9 @@
+module DOM.Event.DragEvent.DataTransfer where
+
+import DOM.File.Types (FileList)
+
+foreign import data DataTransfer :: *
+
+-- | Contains a list of all the local files available on the data transfer.
+-- | Empty if the drag operation doesn't involve dragging files.
+foreign import files :: DataTransfer -> FileList