From 17f22f868b851e50081844562627a7a8a414dcaa Mon Sep 17 00:00:00 2001
From: eric thul <thul.eric@gmail.com>
Date: Mon, 29 Feb 2016 19:57:39 -0500
Subject: [PATCH] Bumping version number to 0.6.0-beta.3

---
 package.json               | 2 +-
 src/PursLoader/Loader.purs | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/package.json b/package.json
index f9e5646..1491de6 100644
--- a/package.json
+++ b/package.json
@@ -1,6 +1,6 @@
 {
   "name": "purs-loader",
-  "version": "0.6.0-beta.2",
+  "version": "0.6.0-beta.3",
   "description": "PureScript loader for webpack",
   "license": "MIT",
   "repository": "ethul/purs-loader",
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
 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
-- 
2.41.0