use mediatype for setData / getData

Author: themoritz

src/DOM/HTML/Event/DragEvent/DataTransfer.js

@@ -8,15 +8,15 @@ exports.types = function (dataTransfer) {
   return dataTransfer.types;
 };
 
-exports.getData = function (format) {
+exports.getDataImpl = function (format) {
   return function (dataTransfer) {
     return function () {
       return dataTransfer.getData(format);
     };
   };
 };
 
-exports.setData = function (format) {
+exports.setDataImpl = function (format) {
   return function (data) {
     return function (dataTransfer) {
       return function () {

src/DOM/HTML/Event/DragEvent/DataTransfer.purs

@@ -12,6 +12,7 @@ import Control.Monad.Eff (Eff)
 import DOM (DOM)
 import DOM.File.Types (FileList)
 import Data.Maybe (Maybe)
+import Data.MediaType (MediaType(..))
 import Data.Nullable (Nullable, toMaybe)
 
 foreign import data DataTransfer :: *
@@ -30,22 +31,34 @@ foreign import filesNullable :: DataTransfer -> Nullable FileList
 -- | If the drag operation included no data, then the array is empty.
 foreign import types :: DataTransfer -> Array String
 
--- | Retrieves the data for a given format, or an empty string if data for that
--- | format does not exist or the data transfer object contains no data.
-foreign import getData
+foreign import getDataImpl
   :: forall eff
    . String
   -> DataTransfer
   -> Eff (dom :: DOM | eff) String
 
--- | Sets the drag operation's drag data for a given format.
+-- | Retrieves the data for a given media type, or an empty string if data for
+-- | that type does not exist or the data transfer object contains no data.
+getData
+  :: forall eff. MediaType -> DataTransfer -> Eff (dom :: DOM | eff) String
+getData (MediaType format) dt = getDataImpl format dt
+
+foreign import setDataImpl
+  :: forall eff
+   . String
+  -> String
+  -> DataTransfer
+  -> Eff (dom :: DOM | eff) Unit
+
+-- | Sets the data transfer object's data for a given media format.
 -- |
 -- | Example:
 -- |
--- |     setData "text/plain" "Foo" dataTransfer
-foreign import setData
+-- |     setData textPlain "Foo" dataTransfer
+setData
   :: forall eff
-   . String
+   . MediaType
   -> String
   -> DataTransfer
   -> Eff (dom :: DOM | eff) Unit
+setData (MediaType format) dat dt = setDataImpl format dat dt