src/PursLoader/Glob.purs

   1 module PursLoader.Glob
   2   ( Glob()
   3   , globAll
   4   ) where
   5
   6 import Prelude (Unit(), ($))
   7
   8 import Control.Monad.Aff (Aff(), makeAff)
   9 import Control.Monad.Eff (Eff())
  10 import Control.Monad.Eff.Exception (Error())
  11
  12 import Data.Function
  13
  14 foreign import data Glob :: !
  15
  16 globAll :: forall eff. Array String -> Aff (glob :: Glob | eff) (Array (Array String))
  17 globAll patterns = makeAff $ runFn3 globAllFn patterns
  18
  19 foreign import globAllFn :: forall eff. Fn3 (Array String)
  20                                             (Error -> Eff (glob :: Glob | eff) Unit)
  21                                             ((Array (Array String)) -> Eff (glob :: Glob | eff) Unit)
  22                                             (Eff (glob :: Glob | eff) Unit)