]>
Commit | Line | Data |
---|---|---|
0e1221d7 | 1 | module PursLoader.Glob |
2 | ( Glob() | |
3 | , globAll | |
4 | ) where | |
5 | ||
03b840cb | 6 | import Prelude (Unit(), ($)) |
7 | ||
0e1221d7 | 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 | ||
03b840cb | 16 | globAll :: forall eff. Array String -> Aff (glob :: Glob | eff) (Array (Array String)) |
0e1221d7 | 17 | globAll patterns = makeAff $ runFn3 globAllFn patterns |
18 | ||
03b840cb | 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) |