From 7de41f10b4ff0f0d6b45d59bee0f166c3cfe3f9f Mon Sep 17 00:00:00 2001
From: Alex Mingoia <talk@alexmingoia.com>
Date: Tue, 10 May 2016 00:09:28 -0700
Subject: Refactor to compile independently of purescript-webpack-plugin.

- Remove dependence on purescript-webpack-plugin
- Fixes double-compilation issue by loading compiled JS instead of adding
  dependency.
- Uses `psc-ide-server` for fast rebuilds.
---
 src/PursLoader/Loader.purs | 108 ---------------------------------------------
 1 file changed, 108 deletions(-)
 delete mode 100644 src/PursLoader/Loader.purs

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

diff --git a/src/PursLoader/Loader.purs b/src/PursLoader/Loader.purs
deleted file mode 100644
index acb0993..0000000
--- a/src/PursLoader/Loader.purs
+++ /dev/null
@@ -1,108 +0,0 @@
-module PursLoader.Loader
-  ( Effects()
-  , Effects_()
-  , loader
-  , loaderFn
-  ) where
-
-import Prelude (Unit(), ($), (>>=), (<$>), (<*>), (++), (<<<), bind, const, id, pure, unit)
-
-import Control.Bind (join)
-import Control.Monad.Eff (Eff(), foreachE)
-import Control.Monad.Eff.Console (CONSOLE())
-import Control.Monad.Eff.Exception (EXCEPTION(), Error(), error)
-
-import Data.Array ((!!))
-import Data.Either (Either(..), either)
-import Data.Function (Fn2(), mkFn2)
-import Data.Maybe (maybe)
-import Data.Nullable (toMaybe)
-import Data.String.Regex (Regex(), match, noFlags, regex)
-
-import Unsafe.Coerce (unsafeCoerce)
-
-import PursLoader.Debug (debug)
-import PursLoader.JsStringEscape (jsStringEscape)
-import PursLoader.LoaderRef
-  ( AsyncCallback()
-  , LoaderRef()
-  , Loader()
-  , async
-  , cacheable
-  , addDependency
-  , resourcePath
-  )
-import PursLoader.Path (dirname, joinPath, relative)
-import PursLoader.Plugin as Plugin
-
-type Effects eff = (console :: CONSOLE, err :: EXCEPTION | eff)
-
-type Effects_ eff = Effects (loader :: Loader | eff)
-
-loader :: forall eff. LoaderRef -> String -> Eff (Effects_ eff) Unit
-loader ref source = do
-  callback <- async ref
-
-  cacheable ref
-
-  debug "Invoke PureScript plugin compilation"
-
-  pluginContext.compile (compile callback)
-  where
-  pluginContext :: Plugin.Context (Effects_ eff)
-  pluginContext = (unsafeCoerce ref).purescriptWebpackPluginContext
-
-  compile :: AsyncCallback (Effects eff) -> Plugin.Compile (Effects_ eff)
-  compile callback error' graph = do
-    either (const $ pure unit) (\a -> debug ("Adding PureScript dependency " ++ a)) name
-
-    addDependency ref (resourcePath ref)
-
-    either (const $ callback (pure fixedError) "") id
-           (handle <$> name <*> dependencies <*> exports)
-    where
-    fixedError :: Error
-    fixedError = error "PureScript compilation has failed."
-
-    handle :: String -> Array String -> String -> Eff (Effects_ eff) Unit
-    handle name' deps res = do
-      debug ("Adding PureScript dependencies for " ++ name')
-      foreachE deps (addDependency ref)
-      debug "Generated loader result"
-      debug res
-      callback (const fixedError <$> toMaybe error') res
-
-    exports :: Either Error String
-    exports =
-      if pluginContext.options.bundle
-         then bundleExport <$> name
-         else moduleExport <<< modulePath <$> name
-      where
-      bundleExport :: String -> String
-      bundleExport name' = "module.exports = require('" ++ jsStringEscape path ++ "')['" ++ name' ++ "'];"
-        where
-        path :: String
-        path = relative resourceDir pluginContext.options.bundleOutput
-
-      moduleExport :: String -> String
-      moduleExport path = "module.exports = require('" ++ jsStringEscape path ++ "');"
-
-      modulePath :: String -> String
-      modulePath = relative resourceDir <<< joinPath pluginContext.options.output
-
-      resourceDir :: String
-      resourceDir = dirname (resourcePath ref)
-
-    dependencies :: Either Error (Array String)
-    dependencies = Plugin.dependenciesOf graph (resourcePath ref)
-
-    name :: Either Error String
-    name =
-      maybe (Left $ error "Failed to parse module name") Right
-            (join $ match re source >>= \as -> as !! 1)
-      where
-      re :: Regex
-      re = regex "(?:^|\\n)module\\s+([\\w\\.]+)" noFlags { ignoreCase = true }
-
-loaderFn :: forall eff. Fn2 LoaderRef String (Eff (Effects_ eff) Unit)
-loaderFn = mkFn2 loader
-- 
cgit v1.2.3