diff options
Diffstat (limited to 'libraries/base/GHC/Conc/POSIX.hs')
| -rw-r--r-- | libraries/base/GHC/Conc/POSIX.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/GHC/Conc/POSIX.hs b/libraries/base/GHC/Conc/POSIX.hs index 84dc68fc30..3a6ddf2287 100644 --- a/libraries/base/GHC/Conc/POSIX.hs +++ b/libraries/base/GHC/Conc/POSIX.hs @@ -179,7 +179,7 @@ interruptIOManager :: IO () interruptIOManager = return () startIOManagerThread :: IO () -startIOManagerThread = do +startIOManagerThread = modifyMVar_ ioManagerThread $ \old -> do let create = do t <- forkIO ioManager; labelThread t "IOManagerThread"; @@ -251,7 +251,7 @@ service_loop wakeup old_delays = do r <- c_WaitForSingleObject wakeup timeout case r of - 0xffffffff -> do throwGetLastError "service_loop" + 0xffffffff -> throwGetLastError "service_loop" 0 -> do r2 <- c_readIOManagerEvent exit <- |