diff options
| author | Ian Lynagh <igloo@earth.li> | 2013-01-12 19:51:39 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2013-01-12 19:51:39 +0000 |
| commit | 8564b7f308104d88bc4da9b742772519c570394b (patch) | |
| tree | 6cccfcaf6c6fe8e7755c38a00048c5a6728ce6bd /libraries/base/Control | |
| parent | 753e3e3811db4b866ba67122843258d002a25e9e (diff) | |
| download | haskell-8564b7f308104d88bc4da9b742772519c570394b.tar.gz | |
Fix warnings on Windows
Diffstat (limited to 'libraries/base/Control')
| -rw-r--r-- | libraries/base/Control/Concurrent.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libraries/base/Control/Concurrent.hs b/libraries/base/Control/Concurrent.hs index ae015a88b6..a53b1a8e91 100644 --- a/libraries/base/Control/Concurrent.hs +++ b/libraries/base/Control/Concurrent.hs @@ -128,7 +128,7 @@ import GHC.Base import System.Posix.Types ( Fd ) import Foreign.StablePtr import Foreign.C.Types -import Control.Monad ( when ) +import Control.Monad #ifdef mingw32_HOST_OS import Foreign.C @@ -460,8 +460,8 @@ threadWaitReadSTM :: Fd -> IO (STM (), IO ()) threadWaitReadSTM fd #ifdef mingw32_HOST_OS | threaded = do v <- newTVarIO Nothing - mask_ $ forkIO $ do result <- try (waitFd fd 0) - atomically (writeTVar v $ Just result) + mask_ $ void $ forkIO $ do result <- try (waitFd fd 0) + atomically (writeTVar v $ Just result) let waitAction = do result <- readTVar v case result of Nothing -> retry @@ -482,8 +482,8 @@ threadWaitWriteSTM :: Fd -> IO (STM (), IO ()) threadWaitWriteSTM fd #ifdef mingw32_HOST_OS | threaded = do v <- newTVarIO Nothing - mask_ $ forkIO $ do result <- try (waitFd fd 1) - atomically (writeTVar v $ Just result) + mask_ $ void $ forkIO $ do result <- try (waitFd fd 1) + atomically (writeTVar v $ Just result) let waitAction = do result <- readTVar v case result of Nothing -> retry |