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 glob :: forall eff. String -> Aff (glob :: Glob | eff) [String]
15 glob pattern = makeAff $ runFn3 globFn pattern
17 foreign import globFn """
18 function globFn(pattern, errback, callback) {
20 var glob = require('glob');
22 glob(pattern, function(e, data){
24 else callback(data)();
28 """ :: forall eff. Fn3 String
29 (Error -> Eff (glob :: Glob | eff) Unit)
30 ([String] -> Eff (glob :: Glob | eff) Unit)
31 (Eff (glob :: Glob | eff) Unit)