diff options
Diffstat (limited to 'tests/common/TestsSetup.hs')
| -rw-r--r-- | tests/common/TestsSetup.hs | 4 |
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" [] |