Merge pull request #33 from nwolverson/0.10

Updates for 0.10-compatible libs

Author: garyb

bower.json

@@ -20,18 +20,18 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-datetime": "^1.0.0",
-    "purescript-foreign": "^1.0.0",
-    "purescript-node-buffer": "^1.0.0",
+    "purescript-datetime": "^2.0.0",
+    "purescript-foreign": "^3.0.0",
+    "purescript-node-buffer": "^2.0.0",
     "purescript-node-path": "^1.0.0",
-    "purescript-unsafe-coerce": "^1.0.0",
-    "purescript-nullable": "^1.0.1",
-    "purescript-node-streams": "^1.0.0",
-    "purescript-exceptions": "^1.0.0",
-    "purescript-js-date": "^2.0.0",
-    "purescript-globals": "^1.1.0"
+    "purescript-unsafe-coerce": "^2.0.0",
+    "purescript-nullable": "^2.0.0",
+    "purescript-node-streams": "^2.0.0",
+    "purescript-exceptions": "^2.0.0",
+    "purescript-js-date": "^3.0.0",
+    "purescript-globals": "^2.0.0"
   },
   "devDependencies": {
-    "purescript-console": "^1.0.0"
+    "purescript-console": "^2.0.0"
   }
 }

src/Node/FS/Async.purs

@@ -33,21 +33,21 @@ module Node.FS.Async
 
 import Prelude
 import Control.Monad.Eff (Eff, runPure)
-import Control.Monad.Eff.Unsafe (unsafeInterleaveEff)
+import Control.Monad.Eff.Unsafe (unsafeCoerceEff)
 import Control.Monad.Eff.Exception (Error)
 import Data.DateTime (DateTime)
 import Data.Time.Duration (Milliseconds(..))
 import Data.DateTime.Instant (fromDateTime, unInstant)
 import Data.Either (Either(..))
-import Data.Function.Uncurried (Fn2, Fn6, Fn4, Fn3, 
+import Data.Function.Uncurried (Fn2, Fn6, Fn4, Fn3,
                                 runFn2, runFn6, runFn4, runFn3)
 import Data.Maybe (Maybe(..))
 import Data.Nullable (Nullable, toNullable)
 import Node.Buffer (Buffer(), BUFFER(), size)
 import Data.Int (round)
 import Node.Encoding (Encoding)
-import Node.FS (FS, FileDescriptor, ByteCount, FilePosition, BufferLength, 
-                BufferOffset, FileMode, FileFlags, SymlinkType, 
+import Node.FS (FS, FileDescriptor, ByteCount, FilePosition, BufferLength,
+                BufferOffset, FileMode, FileFlags, SymlinkType,
                 fileFlagsToNode, symlinkTypeToNode)
 import Node.FS.Stats (StatsObj, Stats(..))
 import Node.Path (FilePath())
@@ -300,7 +300,7 @@ exists :: forall eff. FilePath
                    -> (Boolean -> Eff (fs :: FS | eff) Unit)
                    -> Eff (fs :: FS | eff) Unit
 exists file cb = mkEff $ \_ -> runFn2
-  fs.exists file $ \b -> runPure (unsafeInterleaveEff (cb b))
+  fs.exists file $ \b -> runPure (unsafeCoerceEff (cb b))
 
 -- | Open a file asynchronously. See the [Node Documentation](https://nodejs.org/api/fs.html#fs_fs_open_path_flags_mode_callback)
 -- | for details.

src/Node/FS/Perms.purs

@@ -13,11 +13,11 @@ module Node.FS.Perms
   ) where
 
 import Prelude
-import Global (readInt)
-import Data.Maybe (Maybe(..), isNothing, fromJust)
 import Data.Char (fromCharCode)
-import Data.String (toCharArray, joinWith, drop, charAt, indexOf)
 import Data.Int (fromNumber)
+import Data.Maybe (Maybe(..), isNothing, fromJust)
+import Data.String (Pattern(Pattern), toCharArray, joinWith, drop, charAt, indexOf)
+import Global (readInt)
 import Partial.Unsafe (unsafePartial)
 
 -- | A `Perm` value specifies what is allowed to be done with a particular
@@ -109,7 +109,7 @@ instance showPerms :: Show Perms where
     "mkPerms " <> joinWith " " (f <$> [u, g, o])
     where
       f perm = let str = show perm
-               in  if isNothing $ indexOf " " str
+               in  if isNothing $ indexOf (Pattern " ") str
                      then str
                      else "(" <> str <> ")"