Skip to content

Commit 8bc627f

Browse files
committed
Revert "Merge pull request #8081 from robx/fix-terminate-race"
This reverts commit fa66306, reversing changes made to 32259a1.
1 parent 2843f3a commit 8bc627f

File tree

1 file changed

+8
-6
lines changed
  • cabal-testsuite/PackageTests/NewBuild/CmdRun/Terminate

1 file changed

+8
-6
lines changed

cabal-testsuite/PackageTests/NewBuild/CmdRun/Terminate/Main.hs

+8-6
Original file line numberDiff line numberDiff line change
@@ -4,11 +4,13 @@ import qualified System.Posix.Signals as Signal
44
import System.Exit (exitFailure)
55

66
main = do
7+
writeFile "exe.run" "up and running"
78
mainThreadId <- myThreadId
89
Signal.installHandler Signal.sigTERM (Signal.Catch $ killThread mainThreadId) Nothing
9-
do
10-
putStrLn "about to sleep"
11-
writeFile "exe.run" "up and running"
12-
threadDelay 10000000 -- 10s
13-
putStrLn "done sleeping"
14-
`finally` putStrLn "exiting"
10+
sleep
11+
`finally` putStrLn "exiting"
12+
where
13+
sleep = do
14+
putStrLn "about to sleep"
15+
threadDelay 10000000 -- 10s
16+
putStrLn "done sleeping"

0 commit comments

Comments
 (0)