, 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