PureScript 0.7 updates and migration to pulp

1 files changed, 7 insertions, 18 deletions

diff --git a/src/PursLoader/Glob.purs b/src/PursLoader/Glob.purs
index 392d9e4..45eeb56 100644
--- a/src/PursLoader/Glob.purs
+++ b/src/PursLoader/Glob.purs
@@ -3,6 +3,8 @@ module PursLoader.Glob
   , globAll
   ) where
 
+import Prelude (Unit(), ($))
+
 import Control.Monad.Aff (Aff(), makeAff)
 import Control.Monad.Eff (Eff())
 import Control.Monad.Eff.Exception (Error())
@@ -11,23 +13,10 @@ import Data.Function
 
 foreign import data Glob :: !
 
-globAll :: forall eff. [String] -> Aff (glob :: Glob | eff) [[String]]
+globAll :: forall eff. Array String -> Aff (glob :: Glob | eff) (Array (Array 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)
+foreign import globAllFn :: forall eff. Fn3 (Array String)
+                                            (Error -> Eff (glob :: Glob | eff) Unit)
+                                            ((Array (Array String)) -> Eff (glob :: Glob | eff) Unit)
+                                            (Eff (glob :: Glob | eff) Unit)