From 17f22f868b851e50081844562627a7a8a414dcaa Mon Sep 17 00:00:00 2001 From: eric thul Date: Mon, 29 Feb 2016 19:57:39 -0500 Subject: 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 -- cgit v1.2.3