src/Glob.purs

   1 module PursLoader.Glob
   2   ( Glob()
   3   , globAll
   4   ) where
   5
   6 import Control.Monad.Aff (Aff(), makeAff)
   7 import Control.Monad.Eff (Eff())
   8 import Control.Monad.Eff.Exception (Error())
   9
  10 import Data.Function
  11
  12 foreign import data Glob :: !
  13
  14 globAll :: forall eff. [String] -> Aff (glob :: Glob | eff) [[String]]
  15 globAll patterns = makeAff $ runFn3 globAllFn patterns
  16
  17 foreign import globAllFn """
  18 function globAllFn(patterns, errback, callback) {
  19   return function(){
  20     var glob = require('glob');
  21
  22     var async = require('async');
  23
  24     async.map(patterns, glob, function(error, result){
  25       if (error) errback(new Error(error))();
  26       else callback(result)();
  27     });
  28   };
  29 }
  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)