From fa01c5a4cb42d80ac147dc5ab512a0795dbe14da Mon Sep 17 00:00:00 2001 From: eric thul Date: Tue, 11 Aug 2015 20:27:04 -0400 Subject: Moving files to match module --- src/Glob.purs | 33 --------------------------------- 1 file changed, 33 deletions(-) delete mode 100644 src/Glob.purs (limited to 'src/Glob.purs') diff --git a/src/Glob.purs b/src/Glob.purs deleted file mode 100644 index 392d9e4..0000000 --- a/src/Glob.purs +++ /dev/null @@ -1,33 +0,0 @@ -module PursLoader.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 :: ! - -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) -- cgit v1.2.3