diff options
-rw-r--r-- | package.json | 2 | ||||
-rw-r--r-- | 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 @@ | |||
1 | { | 1 | { |
2 | "name": "purs-loader", | 2 | "name": "purs-loader", |
3 | "version": "0.6.0-beta.2", | 3 | "version": "0.6.0-beta.3", |
4 | "description": "PureScript loader for webpack", | 4 | "description": "PureScript loader for webpack", |
5 | "license": "MIT", | 5 | "license": "MIT", |
6 | "repository": "ethul/purs-loader", | 6 | "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 | |||
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 |