Updates to the psci task

Renaming the task to `psci` and writing the result of the command to the
`.psci` file.

Note that previous commits resolved #40

Author: ethul

MODULE.md

@@ -140,6 +140,47 @@ multipipe2 :: forall a b c. Stream a b -> Stream b c -> Stream a c
 
 
 
+## Module GulpPurescript.OS
+
+#### `OS`
+
+``` purescript
+data OS :: !
+```
+
+
+#### `Platform`
+
+``` purescript
+data Platform
+  = Darwin 
+  | Linux 
+  | Win32 
+```
+
+
+#### `showPlatform`
+
+``` purescript
+instance showPlatform :: Show Platform
+```
+
+
+#### `isForeignPlatform`
+
+``` purescript
+instance isForeignPlatform :: IsForeign Platform
+```
+
+
+#### `platform`
+
+``` purescript
+platform :: forall eff. Eff (os :: OS | eff) (Maybe Platform)
+```
+
+
+
 ## Module GulpPurescript.Options
 
 #### `isForeignEither`
@@ -269,47 +310,6 @@ pscDocsOptions :: Foreign -> Either ForeignError [String]
 
 
 
-## Module GulpPurescript.OS
-
-#### `OS`
-
-``` purescript
-data OS :: !
-```
-
-
-#### `Platform`
-
-``` purescript
-data Platform
-  = Darwin 
-  | Linux 
-  | Win32 
-```
-
-
-#### `showPlatform`
-
-``` purescript
-instance showPlatform :: Show Platform
-```
-
-
-#### `isForeignPlatform`
-
-``` purescript
-instance isForeignPlatform :: IsForeign Platform
-```
-
-
-#### `platform`
-
-``` purescript
-platform :: forall eff. Eff (os :: OS | eff) (Maybe Platform)
-```
-
-
-
 ## Module GulpPurescript.Package
 
 #### `Pkg`
@@ -389,10 +389,10 @@ pscDocs :: forall eff. Foreign -> (Error -> Eff (Effects eff) Unit) -> (File ->
 ```
 
 
-#### `dotPsci`
+#### `psci`
 
 ``` purescript
-dotPsci :: forall eff. Eff (Effects eff) (Stream File Unit)
+psci :: forall eff. Eff (Effects eff) (Stream File Unit)
 ```
 
 

entry.js

@@ -1,18 +1,19 @@
 'use strict';
 
 var gulpPurescript = require('GulpPurescript.Plugin');
+
 var Promise = require('promise');
 
 function promisify(aff) {
-  return new Promise(function (resolve, reject) {
-    var errback = function (err) {
-      return function () {
-        reject(err);
+  return new Promise(function(resolve, reject){
+    var errback = function(error){
+      return function(){
+        reject(error);
       };
     };
-    var callback = function (x) {
-      return function () {
-        resolve(x);
+    var callback = function(result){
+      return function(){
+        resolve(result);
       };
     };
     aff(errback)(callback)();
@@ -31,9 +32,8 @@ function pscDocs(options) {
   return promisify(gulpPurescript.pscDocs(options));
 }
 
-function dotPsci() {
-  var result = gulpPurescript.dotPsci();
-  return result;
+function psci(options) {
+  return promisify(gulpPurescript.psci(options));
 }
 
 module.exports.psc = psc;
@@ -42,4 +42,4 @@ module.exports.pscBundle = pscBundle;
 
 module.exports.pscDocs = pscDocs;
 
-module.exports.dotPsci = dotPsci;
+module.exports.psci = psci;

package.json

@@ -29,6 +29,7 @@
     "purescript"
   ],
   "dependencies": {
+    "async": "^1.3.0",
     "cross-spawn": "^0.4.0",
     "glob": "^5.0.5",
     "gulp-util": "^3.0.4",

src/FS.purs

@@ -1,20 +1,34 @@
 module GulpPurescript.FS
   ( FS()
   , Stream()
-  , createWriteStream
+  , writeFile
   ) where
 
+import Control.Monad.Aff (Aff(), makeAff)
 import Control.Monad.Eff (Eff())
+import Control.Monad.Eff.Exception (Error())
+
+import Data.Function
 
 foreign import data FS :: !
 
 data Stream i o
 
-foreign import createWriteStream """
-function createWriteStream(path) {
+writeFile :: forall eff. String -> String -> Aff (fs :: FS | eff) Unit
+writeFile filename contents = makeAff $ runFn4 writeFileFn filename contents
+
+foreign import writeFileFn """
+function writeFileFn(filename, contents, errback, callback) {
   return function(){
     var fs = require('fs');
-    return fs.createWriteStream(path);
+    fs.writeFile(filename, contents, function(error){
+      if (error) errback(new Error(error))();
+      else callback()();
+    });
   };
 }
-""" :: forall eff. String -> Eff (fs :: FS | eff) (Stream String Unit)
+""" :: forall eff. Fn4 String
+                       String
+                       (Error -> Eff (fs :: FS | eff) Unit)
+                       (Unit -> Eff (fs :: FS | eff) Unit)
+                       (Eff (fs :: FS | eff) Unit)

src/Glob.purs

@@ -0,0 +1,53 @@
+module GulpPurescript.Glob
+  ( Glob()
+  , glob
+  , globAll
+  ) where
+
+import Control.Monad.Aff (Aff(), makeAff)
+import Control.Monad.Eff (Eff())
+import Control.Monad.Eff.Exception (Error())
+
+import Data.Function
+
+foreign import data Glob :: !
+
+glob :: forall eff. String -> Aff (glob :: Glob | eff) [String]
+glob pattern = makeAff $ runFn3 globFn pattern
+
+foreign import globFn """
+function globFn(pattern, errback, callback) {
+  return function(){
+    var glob = require('glob');
+
+    glob(pattern, function(error, result){
+      if (error) errback(new Error(error))();
+      else callback(result)();
+    });
+  };
+}
+""" :: forall eff. Fn3 String
+                       (Error -> Eff (glob :: Glob | eff) Unit)
+                       ([String] -> Eff (glob :: Glob | eff) Unit)
+                       (Eff (glob :: Glob | eff) Unit)
+
+globAll :: forall eff. [String] -> Aff (glob :: Glob | eff) [[String]]
+globAll patterns = makeAff $ runFn3 globAllFn patterns
+
+foreign import globAllFn """
+function globAllFn(patterns, errback, callback) {
+  return function(){
+    var glob = require('glob');
+
+    var async = require('async');
+
+    async.map(patterns, glob, function(error, result){
+      if (error) errback(new Error(error))();
+      else callback(result)();
+    });
+  };
+}
+""" :: forall eff. Fn3 [String]
+                       (Error -> Eff (glob :: Glob | eff) Unit)
+                       ([[String]] -> Eff (glob :: Glob | eff) Unit)
+                       (Eff (glob :: Glob | eff) Unit)

src/Options.purs

@@ -1,5 +1,6 @@
 module GulpPurescript.Options
-  ( pscOptions
+  ( Psci(..)
+  , pscOptions
   , pscBundleOptions
   , pscDocsOptions
   ) where
@@ -99,10 +100,10 @@ newtype PscDocs
             , docgen :: NullOrUndefined Docgen
             }
 
-newtype DotPsci
-  = DotPsci { src :: Either String PathArray
-            , ffi :: NullOrUndefined (Either String PathArray)
-            }
+newtype Psci
+  = Psci { src :: Either String [String]
+         , ffi :: NullOrUndefined (Either String [String])
+         }
 
 newtype Docgen = Docgen Foreign
 
@@ -157,12 +158,12 @@ instance isForeignPscDocs :: IsForeign PscDocs where
                    <*> readProp formatKey obj
                    <*> readProp docgenOpt obj)
 
-instance isForeignDotPsci :: IsForeign DotPsci where
+instance isForeignPsci :: IsForeign Psci where
   read obj =
-    DotPsci <$> ({ src: _
-                 , ffi: _
-                 } <$> readProp srcKey obj
-                   <*> readProp ffiKey obj)
+    Psci <$> ({ src: _
+              , ffi: _
+              } <$> readProp srcKey obj
+                <*> readProp ffiKey obj)
 
 instance isForeignPathArray :: IsForeign PathArray where
   read val = PathArray <$> read val