Merge pull request #88 from purescript-contrib/updates

Other misc updates pre-0.11 release

Author: garyb

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