diff options
| author | Kazu Yamamoto <kazu@iij.ad.jp> | 2013-02-08 16:17:57 +0900 |
|---|---|---|
| committer | Johan Tibell <johan.tibell@gmail.com> | 2013-02-11 21:38:08 -0800 |
| commit | 5186ffc5df803abb2b293f03973564efa5332c85 (patch) | |
| tree | 59906cf148cc3cb52a709b86cdafa633a0abdac3 /libraries/base/GHC/Event/Thread.hs | |
| parent | d8b94b384152b6625778bdb063964055d9795d86 (diff) | |
| download | haskell-5186ffc5df803abb2b293f03973564efa5332c85.tar.gz | |
Removing unnecessary trailing spaces.
Diffstat (limited to 'libraries/base/GHC/Event/Thread.hs')
| -rw-r--r-- | libraries/base/GHC/Event/Thread.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/GHC/Event/Thread.hs b/libraries/base/GHC/Event/Thread.hs index 6d9905a616..9a43b4f9c0 100644 --- a/libraries/base/GHC/Event/Thread.hs +++ b/libraries/base/GHC/Event/Thread.hs @@ -333,7 +333,7 @@ ioManagerCapabilitiesChanged = do let old_n_caps = high + 1 if new_n_caps > old_n_caps then do new_eventManagerArray <- newIOArray (0, new_n_caps - 1) Nothing - + -- copy the existing values into the new array: forM_ [0..high] $ \i -> do Just (tid,mgr) <- readIOArray eventManagerArray i @@ -348,7 +348,7 @@ ioManagerCapabilitiesChanged = do -- update the event manager array reference: writeIORef eventManager new_eventManagerArray - else when (new_n_caps > numEnabled) $ + else when (new_n_caps > numEnabled) $ forM_ [numEnabled..new_n_caps-1] $ \i -> do Just (_,mgr) <- readIOArray eventManagerArray i tid <- restartPollLoop mgr i |