[Git][ghc/ghc][master] Bump process submodule to v1.6.25.0

[Marge Bot (@marge-bot)]

Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC


Commits:
18f532f3 by Ben Gamari at 2024-10-11T23:43:53-04:00
Bump process submodule to v1.6.25.0

- - - - -


5 changed files:

- libraries/process
- testsuite/tests/process/process004.hs
- testsuite/tests/process/process004.stdout
- testsuite/tests/process/process004.stdout-javascript-unknown-ghcjs
- testsuite/tests/process/process004.stdout-mingw32


Changes:

=====================================
libraries/process
=====================================
@@ -1 +1 @@
-Subproject commit a53f925e3ee246e2429418b7a088ecaa0976007b
+Subproject commit b8c88fb5bbdebbcbb3e7c734f0c7515dd3cef84e


=====================================
testsuite/tests/process/process004.hs
=====================================
@@ -4,8 +4,13 @@ import System.IO.Error
 import System.Process
 
 main :: IO ()
-main = do test1 `catchIOError` \e -> putStrLn ("Exc: " ++ show e)
-          test2 `catchIOError` \e -> putStrLn ("Exc: " ++ show e)
+main = do
+  -- N.B. Only show the error type since the exact error text
+  -- may depend upon precise system call which @process@ decided
+  -- to use.
+  let printError e = putStrLn ("Exc: " ++ show (ioeGetErrorType e))
+  test1 `catchIOError` printError
+  test2 `catchIOError` printError
 
 test1 :: IO ()
 test1 = do


=====================================
testsuite/tests/process/process004.stdout
=====================================
@@ -1,2 +1,2 @@
-Exc: true: runInteractiveProcess: chdir: invalid argument (Bad file descriptor)
-Exc: true: runProcess: chdir: does not exist (No such file or directory)
+Exc: does not exist
+Exc: does not exist


=====================================
testsuite/tests/process/process004.stdout-javascript-unknown-ghcjs
=====================================
@@ -1,2 +1,2 @@
-Exc: true: runInteractiveProcess: does not exist (No such file or directory)
-Exc: true: runProcess: does not exist (No such file or directory)
+Exc: does not exist
+Exc: does not exist


=====================================
testsuite/tests/process/process004.stdout-mingw32
=====================================
@@ -1,2 +1,2 @@
-Exc: true: runInteractiveProcess: invalid argument (Invalid argument)
-Exc: true: runProcess: invalid argument (Invalid argument)
+Exc: invalid argument
+Exc: invalid argument



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/18f532f3ed021fff9529f50da2006b8a8d8b1df7

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/18f532f3ed021fff9529f50da2006b8a8d8b1df7
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20241011/2e74319f/attachment-0001.html>