]> git.immae.eu Git - github/fretlink/purs-loader.git/commitdiff
Bumping version number to 0.6.0-beta.3 0.6.0-beta.3
authoreric thul <thul.eric@gmail.com>
Tue, 1 Mar 2016 00:57:39 +0000 (19:57 -0500)
committereric thul <thul.eric@gmail.com>
Tue, 1 Mar 2016 00:57:39 +0000 (19:57 -0500)
package.json
src/PursLoader/Loader.purs

index f9e5646f5d9efdd36a22c354fc3b189f66e7717c..1491de6941e6a64f16929dc814449f5cfe69b160 100644 (file)
@@ -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",
index 49c5f24cf7c02463bd6847cc7248a2e5c43d69a3..d1068b6b91b896939b9cf491cfd694ab168fe91e 100644 (file)
@@ -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