6 import Control.Monad.Aff (Aff(), makeAff)
7 import Control.Monad.Eff (Eff())
8 import Control.Monad.Eff.Exception (Error())
12 foreign import data Glob :: !
14 globAll :: forall eff. [String] -> Aff (glob :: Glob | eff) [[String]]
15 globAll patterns = makeAff $ runFn3 globAllFn patterns
17 foreign import globAllFn """
18 function globAllFn(patterns, errback, callback) {
20 var glob = require('glob');
22 var async = require('async');
24 async.map(patterns, glob, function(error, result){
25 if (error) errback(new Error(error))();
26 else callback(result)();
30 """ :: forall eff. Fn3 [String]
31 (Error -> Eff (glob :: Glob | eff) Unit)
32 ([[String]] -> Eff (glob :: Glob | eff) Unit)
33 (Eff (glob :: Glob | eff) Unit)