Other misc updates pre-0.11 release

bower.json

@@ -30,11 +30,5 @@
     "purescript-nullable": "^3.0.0",
     "purescript-prelude": "^3.0.0",
     "purescript-unsafe-coerce": "^3.0.0"
-  },
-  "devDependencies": {
-    "purescript-aff": "^3.0.0",
-    "purescript-test-unit": "^10.0.0",
-    "purescript-exitcodes": "^2.0.0",
-    "purescript-phantom": "^1.0.1"
   }
 }

package.json

@@ -5,11 +5,11 @@
     "build": "eslint src && pulp build -- --censor-lib --strict"
   },
   "devDependencies": {
-    "eslint": "^3.8.1",
-    "phantomjs-prebuilt": "^2.1.13",
+    "eslint": "^3.19.0",
+    "phantomjs-prebuilt": "^2.1.14",
     "pulp": "^11.0.0",
     "purescript-psa": "^0.5.0",
     "purescript": "^0.11.1",
-    "rimraf": "^2.5.4"
+    "rimraf": "^2.6.1"
   }
 }

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/EventTarget.purs

@@ -21,7 +21,7 @@ foreign import eventListener
 foreign import addEventListener
   :: forall eff
    . EventType
-  -> EventListener (dom :: DOM | eff)
+  -> EventListener eff
   -> Boolean
   -> EventTarget
   -> Eff (dom :: DOM | eff) Unit
@@ -31,7 +31,7 @@ foreign import addEventListener
 foreign import removeEventListener
   :: forall eff
    . EventType
-  -> EventListener (dom :: DOM | eff)
+  -> EventListener eff
   -> Boolean
   -> EventTarget
   -> Eff (dom :: DOM | eff) Unit

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;
 };
 

src/DOM/HTML/Event/DataTransfer.purs

@@ -1,7 +1,6 @@
 module DOM.HTML.Event.DataTransfer
   ( DataTransfer
   , files
-  , filesNullable
   , types
   , getData
   , setData
@@ -23,9 +22,9 @@ foreign import data DataTransfer :: Type
 -- | 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
+files = toMaybe <$> _files
 
-foreign import filesNullable :: DataTransfer -> Nullable FileList
+foreign import _files :: 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.

src/DOM/HTML/HTMLButtonElement.js

@@ -32,7 +32,7 @@ exports.setDisabled = function (disabled) {
 
 // ----------------------------------------------------------------------------
 
-exports.form = function (button) {
+exports._form = function (button) {
   return function () {
     return button.form;
   };

src/DOM/HTML/HTMLButtonElement.purs

@@ -1,10 +1,39 @@
-module DOM.HTML.HTMLButtonElement where
-
-import Prelude (Unit)
+module DOM.HTML.HTMLButtonElement
+  ( autofocus
+  , setAutofocus
+  , disabled
+  , setDisabled
+  , form
+  , formAction
+  , setFormAction
+  , formEnctype
+  , setFormEnctype
+  , formMethod
+  , setFormMethod
+  , formNoValidate
+  , setFormNoValidate
+  , formTarget
+  , setFormTarget
+  , name
+  , setName
+  , type_
+  , setType
+  , value
+  , setValue
+  , willValidate
+  , validity
+  , validationMessage
+  , checkValidity
+  , setCustomValidity
+  , labels
+  ) 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.Node.Types (NodeList)
@@ -16,7 +45,10 @@ foreign import setAutofocus :: forall eff. Boolean -> HTMLButtonElement -> Eff (
 foreign import disabled :: forall eff. HTMLButtonElement -> Eff (dom :: DOM | eff) Boolean
 foreign import setDisabled :: forall eff. Boolean -> HTMLButtonElement -> Eff (dom :: DOM | eff) Unit
 
-foreign import form :: forall eff. HTMLButtonElement -> Eff (dom :: DOM | eff) (Nullable HTMLFormElement)
+form :: forall eff. HTMLButtonElement -> Eff (dom :: DOM | eff) (Maybe HTMLFormElement)
+form = map toMaybe <<< _form
+
+foreign import _form :: forall eff. HTMLButtonElement -> Eff (dom :: DOM | eff) (Nullable HTMLFormElement)
 
 foreign import formAction :: forall eff. HTMLButtonElement -> Eff (dom :: DOM | eff) String
 foreign import setFormAction :: forall eff. String -> HTMLButtonElement -> Eff (dom :: DOM | eff) Unit

src/DOM/HTML/HTMLElement.js

@@ -208,7 +208,7 @@ exports.getBoundingClientRect = function (el) {
   };
 };
 
-exports.offsetParent = function (el) {
+exports._offsetParent = function (el) {
   return function () {
     return el.offsetParent;
   };

src/DOM/HTML/HTMLElement.purs

@@ -1,8 +1,38 @@
-module DOM.HTML.HTMLElement where
+module DOM.HTML.HTMLElement
+  ( title
+  , setTitle
+  , lang
+  , setLang
+  , dir
+  , setDir
+  , className
+  , setClassName
+  , hidden
+  , setHidden
+  , tabIndex
+  , setTabIndex
+  , draggable
+  , setDraggable
+  , contentEditable
+  , setContentEditable
+  , isContentEditable
+  , spellcheck
+  , setSpellcheck
+  , click
+  , focus
+  , blur
+  , getBoundingClientRect
+  , offsetParent
+  , offsetTop
+  , offsetLeft
+  , offsetWidth
+  , offsetHeight
+  ) where
 
 import Prelude
 import Control.Monad.Eff (Eff)
-import Data.Nullable (Nullable)
+import Data.Nullable (Nullable, toMaybe)
+import Data.Maybe (Maybe)
 import DOM (DOM)
 import DOM.HTML.Types (HTMLElement)
 import DOM.Node.Types (Element)
@@ -52,7 +82,11 @@ foreign import getBoundingClientRect
       , height :: Number
       }
 
-foreign import offsetParent :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) (Nullable Element)
+foreign import _offsetParent :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) (Nullable Element)
+
+offsetParent :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) (Maybe Element)
+offsetParent = map toMaybe <<< _offsetParent
+
 foreign import offsetTop :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) Number
 foreign import offsetLeft :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) Number
 foreign import offsetWidth :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) Number

src/DOM/HTML/HTMLFieldSetElement.js

@@ -16,7 +16,7 @@ exports.setDisabled = function (disabled) {
 
 // ----------------------------------------------------------------------------
 
-exports.form = function (fieldset) {
+exports._form = function (fieldset) {
   return function () {
     return fieldset.form;
   };

src/DOM/HTML/HTMLFieldSetElement.purs

@@ -1,18 +1,35 @@
-module DOM.HTML.HTMLFieldSetElement where
-
-import Prelude (Unit)
+module DOM.HTML.HTMLFieldSetElement
+  ( disabled
+  , setDisabled
+  , form
+  , name
+  , setName
+  , type_
+  , setType
+  , willValidate
+  , validity
+  , validationMessage
+  , checkValidity
+  , setCustomValidity
+  ) 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 (HTMLFieldSetElement, HTMLFormElement, ValidityState)
 
 foreign import disabled :: forall eff. HTMLFieldSetElement -> Eff (dom :: DOM | eff) Boolean
 foreign import setDisabled :: forall eff. Boolean -> HTMLFieldSetElement -> Eff (dom :: DOM | eff) Unit
 
-foreign import form :: forall eff. HTMLFieldSetElement -> Eff (dom :: DOM | eff) (Nullable HTMLFormElement)
+foreign import _form :: forall eff. HTMLFieldSetElement -> Eff (dom :: DOM | eff) (Nullable HTMLFormElement)
+
+form :: forall eff. HTMLFieldSetElement -> Eff (dom :: DOM | eff) (Maybe HTMLFormElement)
+form = map toMaybe <<< _form
 
 foreign import name :: forall eff. HTMLFieldSetElement -> Eff (dom :: DOM | eff) String
 foreign import setName :: forall eff. String -> HTMLFieldSetElement -> Eff (dom :: DOM | eff) Unit
@@ -31,4 +48,3 @@ foreign import validationMessage :: forall eff. HTMLFieldSetElement -> Eff (dom
 foreign import checkValidity :: forall eff. HTMLFieldSetElement -> Eff (dom :: DOM | eff) Boolean
 
 foreign import setCustomValidity :: forall eff. String -> HTMLFieldSetElement -> Eff (dom :: DOM | eff) Unit
-

src/DOM/HTML/HTMLIFrameElement.js

@@ -80,7 +80,7 @@ exports.setHeight = function (height) {
 
 // ----------------------------------------------------------------------------
 
-exports.contentDocument = function (iframe) {
+exports._contentDocument = function (iframe) {
   return function () {
     return iframe.contentDocument;
   };