@@ -26,12 +26,12 @@ instance Show DataTransferItemKind where
26
26
Text -> " Text"
27
27
File -> " File"
28
28
29
+ foreign import _kind :: Fn3 DataTransferItemKind DataTransferItemKind DataTransferItem DataTransferItemKind
30
+
29
31
-- | Returns the drag data item kind, which is either "string" or "file".
30
32
kind :: DataTransferItem -> DataTransferItemKind
31
33
kind = Uncurried .runFn3 _kind Text File
32
34
33
- foreign import _kind :: Fn3 DataTransferItemKind DataTransferItemKind DataTransferItem DataTransferItemKind
34
-
35
35
-- | A Unicode string giving the type or format of the data, generally given by
36
36
-- | a MIME type. Some values that are not MIME types are special-cased for
37
37
-- | legacy reasons. The API does not enforce the use of MIME types; other
@@ -40,17 +40,17 @@ foreign import _kind :: Fn3 DataTransferItemKind DataTransferItemKind DataTransf
40
40
-- | There is a limit of one text item per item type string.
41
41
foreign import type_ :: DataTransferItem -> String
42
42
43
+ foreign import _dataTransferItem :: Int -> DataTransferItemList -> Nullable DataTransferItem
44
+
43
45
-- | Access an item in the `DataTransferItemList` by index.
44
46
dataTransferItem :: Int -> DataTransferItemList -> Maybe DataTransferItem
45
47
dataTransferItem = map Nullable .toMaybe <$> _dataTransferItem
46
48
47
- foreign import _dataTransferItem :: Int -> DataTransferItemList -> Nullable DataTransferItem
49
+ foreign import _length :: DataTransferItemList -> Int
48
50
49
51
length :: DataTransferItemList -> Int
50
52
length = _length
51
53
52
- foreign import _length :: DataTransferItemList -> Int
53
-
54
54
foreign import data DataTransferItem :: Type
55
55
56
56
foreign import data DataTransferItemList :: Type
0 commit comments