Use Maybe rather than Nullable, add QuerySelector

Author: garyb

src/DOM/Event/CompositionEvent.purs

@@ -1,8 +1,8 @@
-module DOM.Event.CompositionEvent (
-    module T,
-    eventToCompositionEvent,
-    data_
-    ) where
+module DOM.Event.CompositionEvent
+  ( module T
+  , eventToCompositionEvent
+  , data_
+  ) where
 
 import Prelude
 import Data.Foreign (F, toForeign)

src/DOM/Event/FocusEvent.js

@@ -1,5 +1,5 @@
 "use strict";
 
-exports.relatedTargetNullable = function (e) {
+exports._relatedTarget = function (e) {
   return e.relatedTarget;
 };

src/DOM/Event/FocusEvent.purs

@@ -14,7 +14,7 @@ import DOM.Event.Types (FocusEvent, focusEventToEvent, readFocusEvent) as T
 eventToFocusEvent :: Event -> F FocusEvent
 eventToFocusEvent = readFocusEvent <<< toForeign
 
-foreign import relatedTargetNullable :: FocusEvent -> Nullable EventTarget
+foreign import _relatedTarget :: FocusEvent -> Nullable EventTarget
 
 relatedTarget :: FocusEvent -> Maybe EventTarget
-relatedTarget = toMaybe <$> relatedTargetNullable
+relatedTarget = toMaybe <$> _relatedTarget

src/DOM/Event/MouseEvent.js

@@ -36,7 +36,7 @@ exports.button = function (e) {
   return e.button;
 };
 
-exports.relatedTargetNullable = function (e) {
+exports._relatedTarget = function (e) {
   return e.relatedTarget;
 };
 

src/DOM/Event/MouseEvent.purs

@@ -45,10 +45,10 @@ foreign import metaKey :: MouseEvent -> Boolean
 
 foreign import button :: MouseEvent -> Int
 
-foreign import relatedTargetNullable :: MouseEvent -> Nullable EventTarget
+foreign import _relatedTarget :: MouseEvent -> Nullable EventTarget
 
 relatedTarget :: MouseEvent -> Maybe EventTarget
-relatedTarget = toMaybe <$> relatedTargetNullable
+relatedTarget = toMaybe <$> _relatedTarget
 
 foreign import buttons :: MouseEvent -> Int
 

src/DOM/File/FileList.js

@@ -2,7 +2,7 @@
 
 exports.length = function (fileList) { return fileList.length; };
 
-exports.item = function (index) {
+exports._item = function (index) {
   return function (fileList) {
     return fileList.item(index);
   };

src/DOM/File/FileList.purs

@@ -1,10 +1,18 @@
-module DOM.File.FileList where
+module DOM.File.FileList
+  ( length
+  , item
+  ) where
 
-import Data.Nullable (Nullable)
+import Prelude
+import Data.Nullable (Nullable, toMaybe)
+import Data.Maybe (Maybe)
 import DOM.File.Types (FileList, File)
 
 -- | Number of files in the `FileList` object.
 foreign import length :: FileList -> Int
 
+foreign import _item :: Int -> FileList -> Nullable File
+
 -- | Get `File` at the certain position
-foreign import item :: Int -> FileList -> Nullable File
+item :: Int -> FileList -> Maybe File
+item i = toMaybe <<< _item i

src/DOM/HTML/Document.js

@@ -1,6 +1,6 @@
 "use strict";
 
-exports.body = function (doc) {
+exports._body = function (doc) {
   return function () {
     return doc.body;
   };

src/DOM/HTML/Document.purs

@@ -1,8 +1,15 @@
-module DOM.HTML.Document where
+module DOM.HTML.Document
+  ( body
+  ) where
 
+import Prelude
 import Control.Monad.Eff (Eff)
-import Data.Nullable (Nullable)
+import Data.Maybe (Maybe)
+import Data.Nullable (Nullable, toMaybe)
 import DOM (DOM)
 import DOM.HTML.Types (HTMLElement, HTMLDocument)
 
-foreign import body :: forall eff. HTMLDocument -> Eff (dom :: DOM | eff) (Nullable HTMLElement)
+foreign import _body :: forall eff. HTMLDocument -> Eff (dom :: DOM | eff) (Nullable HTMLElement)
+
+body :: forall eff. HTMLDocument -> Eff (dom :: DOM | eff) (Maybe HTMLElement)
+body = map toMaybe <<< _body

src/DOM/HTML/Event/DataTransfer.js

@@ -1,6 +1,6 @@
 "use strict";
 
-exports.filesNullable = function (dataTransfer) {
+exports._files = function (dataTransfer) {
   return dataTransfer.files;
 };