move DataTransfer module

Author: themoritz

src/DOM/Event/ClipboardEvent.purs

@@ -8,7 +8,7 @@ module DOM.Event.ClipboardEvent
 import Prelude
 import DOM.Event.Types (Event, ClipboardEvent, readClipboardEvent)
 import DOM.Event.Types (ClipboardEvent, clipboardEventToEvent, readClipboardEvent) as T
-import DOM.HTML.Event.DragEvent.DataTransfer (DataTransfer) as DT
+import DOM.HTML.Event.DataTransfer (DataTransfer) as DT
 import Data.Foreign (F, toForeign)
 
 eventToClipboardEvent :: Event -> F ClipboardEvent

…DOM/HTML/Event/DragEvent/DataTransfer.js src/DOM/HTML/Event/DataTransfer.jssrc/DOM/HTML/Event/DragEvent/DataTransfer.js renamed to src/DOM/HTML/Event/DataTransfer.js src/DOM/HTML/Event/DragEvent/DataTransfer.js renamed to src/DOM/HTML/Event/DataTransfer.js

@@ -0,0 +1,64 @@
+module DOM.HTML.Event.DataTransfer
+  ( DataTransfer
+  , files
+  , filesNullable
+  , types
+  , getData
+  , setData
+  ) where
+
+import Prelude
+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 :: *
+
+-- | Contains a list of all the local files available on the data transfer.
+-- | Empty if the drag operation doesn't involve dragging files.
+-- |
+-- | It's possible that a drag operation may have null files, instead of an
+-- | empty file list. In these cases Nothing is returned.
+files :: DataTransfer -> Maybe FileList
+files = toMaybe <$> filesNullable
+
+foreign import filesNullable :: DataTransfer -> Nullable FileList
+
+-- | Returns an array of data formats used in the drag operation.
+-- | If the drag operation included no data, then the array is empty.
+foreign import types :: DataTransfer -> Array String
+
+foreign import getDataImpl
+  :: forall eff
+   . String
+  -> DataTransfer
+  -> Eff (dom :: DOM | eff) String
+
+-- | 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 textPlain "Foo" dataTransfer
+setData
+  :: forall eff
+   . MediaType
+  -> String
+  -> DataTransfer
+  -> Eff (dom :: DOM | eff) Unit
+setData (MediaType format) dat dt = setDataImpl format dat dt

src/DOM/HTML/Event/DataTransfer.purs

@@ -1,64 +1,5 @@
 module DOM.HTML.Event.DragEvent.DataTransfer
-  ( DataTransfer
-  , files
-  , filesNullable
-  , types
-  , getData
-  , setData
+  ( module DataTransfer
   ) where
 
-import Prelude
-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 :: *
-
--- | Contains a list of all the local files available on the data transfer.
--- | Empty if the drag operation doesn't involve dragging files.
--- |
--- | It's possible that a drag operation may have null files, instead of an
--- | empty file list. In these cases Nothing is returned.
-files :: DataTransfer -> Maybe FileList
-files = toMaybe <$> filesNullable
-
-foreign import filesNullable :: DataTransfer -> Nullable FileList
-
--- | Returns an array of data formats used in the drag operation.
--- | If the drag operation included no data, then the array is empty.
-foreign import types :: DataTransfer -> Array String
-
-foreign import getDataImpl
-  :: forall eff
-   . String
-  -> DataTransfer
-  -> Eff (dom :: DOM | eff) String
-
--- | 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 textPlain "Foo" dataTransfer
-setData
-  :: forall eff
-   . MediaType
-  -> String
-  -> DataTransfer
-  -> Eff (dom :: DOM | eff) Unit
-setData (MediaType format) dat dt = setDataImpl format dat dt
+import DOM.HTML.Event.DataTransfer as DataTransfer