summaryrefslogtreecommitdiff
path: root/tests/common/TestsSetup.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/common/TestsSetup.hs')
-rw-r--r--tests/common/TestsSetup.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/common/TestsSetup.hs b/tests/common/TestsSetup.hs
index cc853ec..2dc1458 100644
--- a/tests/common/TestsSetup.hs
+++ b/tests/common/TestsSetup.hs
@@ -28,6 +28,8 @@ import System.Process
import System.Directory
import System.Info
+import Language.PureScript.Crash
+
findNodeProcess :: IO (Maybe String)
findNodeProcess = runMaybeT . msum $ map (MaybeT . findExecutable) names
where
@@ -35,7 +37,7 @@ findNodeProcess = runMaybeT . msum $ map (MaybeT . findExecutable) names
fetchSupportCode :: IO ()
fetchSupportCode = do
- node <- fromMaybe (error "cannot find node executable") <$> findNodeProcess
+ node <- fromMaybe (internalError "cannot find node executable") <$> findNodeProcess
setCurrentDirectory "tests/support"
if System.Info.os == "mingw32"
then callProcess "setup-win.cmd" []