diff options
author | eric thul <thul.eric@gmail.com> | 2015-07-05 10:13:47 -0400 |
---|---|---|
committer | eric thul <thul.eric@gmail.com> | 2015-07-06 23:53:01 -0400 |
commit | 1983893bf09a5c2ea1946e156be5da170075af7e (patch) | |
tree | f99bda0c0ff3c50356d8ab152336ba461c292494 /src/Glob.purs | |
parent | 4558c6cf7879207166b1cc013e2e8112f558bb1d (diff) | |
download | purs-loader-1983893bf09a5c2ea1946e156be5da170075af7e.tar.gz purs-loader-1983893bf09a5c2ea1946e156be5da170075af7e.tar.zst purs-loader-1983893bf09a5c2ea1946e156be5da170075af7e.zip |
Updating for PureScript 0.7
Resolves #14
Diffstat (limited to 'src/Glob.purs')
-rw-r--r-- | src/Glob.purs | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/src/Glob.purs b/src/Glob.purs deleted file mode 100644 index 7bc9212..0000000 --- a/src/Glob.purs +++ /dev/null | |||
@@ -1,31 +0,0 @@ | |||
1 | module PursLoader.Glob | ||
2 | ( Glob() | ||
3 | , glob | ||
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 | glob :: forall eff. String -> Aff (glob :: Glob | eff) [String] | ||
15 | glob pattern = makeAff $ runFn3 globFn pattern | ||
16 | |||
17 | foreign import globFn """ | ||
18 | function globFn(pattern, errback, callback) { | ||
19 | return function(){ | ||
20 | var glob = require('glob'); | ||
21 | |||
22 | glob(pattern, function(e, data){ | ||
23 | if (e) errback(e)(); | ||
24 | else callback(data)(); | ||
25 | }); | ||
26 | }; | ||
27 | } | ||
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) | ||