diff options
author | eric thul <thul.eric@gmail.com> | 2016-02-29 19:57:39 -0500 |
---|---|---|
committer | eric thul <thul.eric@gmail.com> | 2016-02-29 19:57:39 -0500 |
commit | 17f22f868b851e50081844562627a7a8a414dcaa (patch) | |
tree | f9512e0375c8ca3d93306e4d21018106fe5da0e0 /src/PursLoader/Loader.purs | |
parent | b1b6e1467b844c502d91a4f46e3eaa9122b20e31 (diff) | |
download | purs-loader-17f22f868b851e50081844562627a7a8a414dcaa.tar.gz purs-loader-17f22f868b851e50081844562627a7a8a414dcaa.tar.zst purs-loader-17f22f868b851e50081844562627a7a8a414dcaa.zip |
Bumping version number to 0.6.0-beta.30.6.0-beta.3
Diffstat (limited to 'src/PursLoader/Loader.purs')
-rw-r--r-- | src/PursLoader/Loader.purs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/PursLoader/Loader.purs b/src/PursLoader/Loader.purs index 49c5f24..d1068b6 100644 --- a/src/PursLoader/Loader.purs +++ b/src/PursLoader/Loader.purs | |||
@@ -7,6 +7,7 @@ module PursLoader.Loader | |||
7 | import Prelude (Unit(), ($), (>>=), (<$>), (<*>), (++), bind, const, id, pure, unit) | 7 | import Prelude (Unit(), ($), (>>=), (<$>), (<*>), (++), bind, const, id, pure, unit) |
8 | 8 | ||
9 | import Control.Apply ((*>)) | 9 | import Control.Apply ((*>)) |
10 | import Control.Alt ((<|>)) | ||
10 | import Control.Bind (join) | 11 | import Control.Bind (join) |
11 | import Control.Monad.Eff (Eff(), foreachE) | 12 | import Control.Monad.Eff (Eff(), foreachE) |
12 | import Control.Monad.Eff.Exception (Error(), error) | 13 | import Control.Monad.Eff.Exception (Error(), error) |
@@ -63,7 +64,7 @@ loader ref source = do | |||
63 | 64 | ||
64 | addDependency ref (resourcePath ref) | 65 | addDependency ref (resourcePath ref) |
65 | 66 | ||
66 | either (\err -> callback (Just err) "") id | 67 | either (\err -> callback (toMaybe error' <|> Just err) "") id |
67 | (handle <$> name <*> dependencies <*> exports) | 68 | (handle <$> name <*> dependencies <*> exports) |
68 | where | 69 | where |
69 | handle :: String -> Array String -> String -> Eff (Effects eff) Unit | 70 | handle :: String -> Array String -> String -> Eff (Effects eff) Unit |