From 3afbe2fddcc38ba6d79b01409f57158a217c00dd Mon Sep 17 00:00:00 2001
From: eric thul <thul.eric@gmail.com>
Date: Sat, 27 Feb 2016 20:15:10 -0500
Subject: Adding debug logging

---
 src/PursLoader/Loader.purs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/PursLoader/Loader.purs')

diff --git a/src/PursLoader/Loader.purs b/src/PursLoader/Loader.purs
index f78153f..5e00f7e 100644
--- a/src/PursLoader/Loader.purs
+++ b/src/PursLoader/Loader.purs
@@ -34,6 +34,7 @@ import PursLoader.LoaderRef
   , resourcePath
   )
 
+import PursLoader.Debug (debug)
 import PursLoader.LoaderUtil (parseQuery)
 import PursLoader.Options (Options(..))
 import PursLoader.Path (dirname, relative)
@@ -47,6 +48,8 @@ loader ref source = do
 
   cacheable ref
 
+  debug "Invoke PureScript plugin compilation"
+
   pluginContext.compile (compile callback)
   where
   pluginContext :: Plugin.Context (Effects eff)
@@ -56,6 +59,8 @@ loader ref source = do
   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
@@ -63,6 +68,7 @@ loader ref source = do
     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
-- 
cgit v1.2.3