Make kind a sum type, add to exports

Author: pete-murphy

src/Web/HTML/Event/DataTransfer.purs

@@ -1,6 +1,7 @@
 module Web.HTML.Event.DataTransfer
   ( DataTransfer
   , files
+  , items
   , types
   , getData
   , setData

src/Web/HTML/Event/DataTransfer/DataTransferItem.js

@@ -1,7 +1,11 @@
 "use strict";
 
-exports.kind = function (dataTransferItem) {
-  return dataTransferItem.kind;
+exports._kind = function (text, file, dataTransferItem) {
+  if (dataTransferItem.kind === "string") {
+    return text;
+  } else {
+    return file;
+  }
 };
 
 exports.type_ = function (dataTransferItem) {

src/Web/HTML/Event/DataTransfer/DataTransferItem.purs

@@ -1,15 +1,36 @@
 module Web.HTML.Event.DataTransfer.DataTransferItem
   ( DataTransferItem
+  , DataTransferItemKind(..)
   , DataTransferItemList
+  , dataTransferItem
+  , kind
+  , length
+  , type_
   ) where
 
 import Prelude
+
+import Data.Function.Uncurried (Fn3)
+import Data.Function.Uncurried as Uncurried
 import Data.Maybe (Maybe)
 import Data.Nullable (Nullable)
 import Data.Nullable as Nullable
 
+data DataTransferItemKind = Text | File
+
+derive instance Eq DataTransferItemKind
+derive instance Ord DataTransferItemKind
+
+instance Show DataTransferItemKind where
+  show = case _ of
+    Text -> "Text"
+    File -> "File"
+
 -- | Returns the drag data item kind, which is either "string" or "file".
-foreign import kind :: DataTransferItem -> String
+kind :: DataTransferItem -> DataTransferItemKind
+kind = Uncurried.runFn3 _kind Text File
+
+foreign import _kind :: Fn3 DataTransferItemKind DataTransferItemKind DataTransferItem DataTransferItemKind
 
 -- | A Unicode string giving the type or format of the data, generally given by
 -- | a MIME type. Some values that are not MIME types are special-cased for