diff options
Diffstat (limited to 'src/PursLoader')
-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 |