Bumping version number to 0.6.0-beta.3

[github/fretlink/purs-loader.git] / src / PursLoader / Loader.purs

diff --git a/src/PursLoader/Loader.purs b/src/PursLoader/Loader.purs
index 49c5f24cf7c02463bd6847cc7248a2e5c43d69a3..d1068b6b91b896939b9cf491cfd694ab168fe91e 100644 (file)
--- a/src/PursLoader/Loader.purs
+++ b/src/PursLoader/Loader.purs
@@ -7,6 +7,7 @@ module PursLoader.Loader
 import Prelude (Unit(), ($), (>>=), (<$>), (<*>), (++), bind, const, id, pure, unit)
 
 import Control.Apply ((*>))
+import Control.Alt ((<|>))
 import Control.Bind (join)
 import Control.Monad.Eff (Eff(), foreachE)
 import Control.Monad.Eff.Exception (Error(), error)
@@ -63,7 +64,7 @@ loader ref source = do
 
     addDependency ref (resourcePath ref)
 
-    either (\err -> callback (Just err) "") id
+    either (\err -> callback (toMaybe error' <|> Just err) "") id
            (handle <$> name <*> dependencies <*> exports)
     where
     handle :: String -> Array String -> String -> Eff (Effects eff) Unit