Updates for 1.0 libraries (#11)

* Updates for 1.0 libraries

* CI fixes?

* pulp dep -> bower

* Add bower

* trusty

Author: paf31

.travis.yml

@@ -1,8 +1,7 @@
 language: node_js
-sudo: false
+dist: trusty
+sudo: required
 node_js:
-  - 0.10
-  - 0.12
   - 4.1
 env:
   - PATH=$HOME/purescript:$PATH

bower.json

@@ -28,9 +28,9 @@
     "example"
   ],
   "dependencies": {
-    "purescript-aff": ">= 0.13.1 < 0.17.0",
-    "purescript-node-fs": "~0.11.0",
-    "purescript-either": "~0.2.2",
-    "purescript-node-path": "~0.4.0"
+    "purescript-aff": "^1.0.0",
+    "purescript-node-fs": "^1.0.0",
+    "purescript-either": "^1.0.0",
+    "purescript-node-path": "^1.0.0"
   }
 }

docs/Node/FS/Aff.md

@@ -154,7 +154,7 @@ Reads the contents of a directory.
 #### `utimes`
 
 ``` purescript
-utimes :: forall eff. FilePath -> Date -> Date -> Aff (fs :: FS | eff) Unit
+utimes :: forall eff. FilePath -> DateTime -> DateTime -> Aff (fs :: FS | eff) Unit
 ```
 
 

example/example.purs

@@ -2,22 +2,27 @@ module Example.Main where
 
 import Prelude
 
-import Data.Maybe
-import Data.Array
-import Data.String (charAt, fromChar)
-
-import Control.Monad.Aff
+import Control.Monad.Aff (launchAff)
+import Control.Monad.Eff (Eff)
 import Control.Monad.Eff.Class (liftEff)
-import Control.Monad.Eff.Console
-
-import qualified Node.FS.Aff as FS
-import qualified Node.FS.Stats as FS
+import Control.Monad.Eff.Console (CONSOLE, log)
+import Control.Monad.Eff.Exception (EXCEPTION)
+import Data.Array (filterM)
+import Data.Maybe (maybe)
+import Data.String (charAt, singleton)
+import Node.FS (FS)
+import Node.FS.Aff (stat, readdir)
+import Node.FS.Stats (isDirectory)
 
-main = launchAff do
-  files <- FS.readdir "."
+main :: forall eff. Eff ( err     :: EXCEPTION
+                        , fs      :: FS
+                        , console :: CONSOLE
+                        | eff
+                        ) Unit
+main = void $ launchAff do
+  files <- readdir "."
   files' <- flip filterM files \file -> do
-    stat <- FS.stat file
-    return $
-         FS.isDirectory stat
-      && (maybe false (fromChar >>> (/= ".")) $ charAt 0 file)
+    stat <- stat file
+    pure $ isDirectory stat
+      && (maybe false (singleton >>> (_ /= ".")) $ charAt 0 file)
   liftEff $ log $ show files'

package.json

@@ -1,12 +1,13 @@
 {
   "private": true,
   "scripts": {
-    "postinstall": "pulp dep install",
+    "postinstall": "bower install",
     "build": "pulp build && rimraf docs && pulp docs",
     "example": "pulp run -I example --main Example.Main"
   },
   "devDependencies": {
-    "pulp": "^4.0.2",
+    "pulp": "^9.0.0",
+    "bower": "^1.7.7",
     "rimraf": "^2.4.1"
   }
 }

src/Node/FS/Aff.purs

@@ -32,18 +32,18 @@ module Node.FS.Aff
 
 import Prelude
 
-import Data.Maybe (Maybe())
-import Node.Path (FilePath())
-import Node.FS.Perms (Perms())
-import Node.FS.Stats (Stats())
-import Data.Date (Date())
+import Control.Monad.Aff (Aff(), makeAff)
 import Control.Monad.Eff (Eff())
+import Data.DateTime (DateTime())
 import Data.Either (either)
-import Control.Monad.Aff (Aff(), makeAff)
+import Data.Maybe (Maybe())
 import Node.Buffer (Buffer(), BUFFER())
 import Node.Encoding (Encoding())
-import qualified Node.FS as F
-import qualified Node.FS.Async as A
+import Node.FS as F
+import Node.FS.Async as A
+import Node.FS.Perms (Perms())
+import Node.FS.Stats (Stats())
+import Node.Path (FilePath())
 
 toAff :: forall eff a.
   (A.Callback eff a -> Eff (fs :: F.FS | eff) Unit) ->
@@ -201,8 +201,8 @@ readdir = toAff1 A.readdir
 -- | Sets the accessed and modified times for the specified file.
 -- |
 utimes :: forall eff. FilePath
-                   -> Date
-                   -> Date
+                   -> DateTime
+                   -> DateTime
                    -> Aff (fs :: F.FS | eff) Unit
 utimes = toAff3 A.utimes