--- /dev/null
+'use strict';
+
+// module PursLoader.Debug
+
+var debug_ = require('debug')('purs-loader');
+
+function debug(message) {
+ return function(){
+ debug_(message);
+ };
+}
+exports.debug = debug;
--- /dev/null
+module PursLoader.Debug (debug) where
+
+import Prelude (Unit())
+
+import Control.Monad.Eff (Eff())
+
+import PursLoader.LoaderRef (Loader())
+
+foreign import debug :: forall eff. String -> Eff (loader :: Loader | eff) Unit
, resourcePath
)
+import PursLoader.Debug (debug)
import PursLoader.LoaderUtil (parseQuery)
import PursLoader.Options (Options(..))
import PursLoader.Path (dirname, relative)
cacheable ref
+ debug "Invoke PureScript plugin compilation"
+
pluginContext.compile (compile callback)
where
pluginContext :: Plugin.Context (Effects eff)
compile callback error' { srcMap, ffiMap, graph } = do
clearDependencies ref
+ either (const $ pure unit) (\a -> debug ("Adding PureScript dependency " ++ a)) name
+
addDependency ref (resourcePath ref)
either (\err -> callback (Just err) "") id
where
handle :: String -> Array String -> String -> Eff (Effects eff) Unit
handle name' deps res = do
+ debug ("Adding PureScript transitive dependencies for " ++ name')
addTransitive name'
foreachE deps addTransitive
callback (toMaybe error') res