diff options
| author | Andreas Voellmy <andreas.voellmy@gmail.com> | 2012-12-20 01:21:24 -0500 |
|---|---|---|
| committer | Johan Tibell <johan.tibell@gmail.com> | 2013-02-11 21:38:04 -0800 |
| commit | 08e4e156268cdd2607dd17fc265f094c86f478aa (patch) | |
| tree | 48fa7ec7c918ef7ff8b78d38503ff5afb2c5ea47 /libraries/base/GHC/Event/Manager.hs | |
| parent | bd9498248343d1597a8201c3e60be89a6bc80ed6 (diff) | |
| download | haskell-08e4e156268cdd2607dd17fc265f094c86f478aa.tar.gz | |
Removed control registration flag from Manager and TimerManager new functions.
The timer manager always registers its control instance with the RTS hooks while the file io manager does not.
Diffstat (limited to 'libraries/base/GHC/Event/Manager.hs')
| -rw-r--r-- | libraries/base/GHC/Event/Manager.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libraries/base/GHC/Event/Manager.hs b/libraries/base/GHC/Event/Manager.hs index 0ecd271818..a4ac08f656 100644 --- a/libraries/base/GHC/Event/Manager.hs +++ b/libraries/base/GHC/Event/Manager.hs @@ -180,14 +180,14 @@ newDefaultBackend = error "no back end for this platform" #endif -- | Create a new event manager. -new :: Bool -> IO EventManager -new shouldRegister = newWith shouldRegister =<< newDefaultBackend +new :: IO EventManager +new = newWith =<< newDefaultBackend -newWith :: Bool -> Backend -> IO EventManager -newWith shouldRegister be = do +newWith :: Backend -> IO EventManager +newWith be = do iofds <- newMVar IM.empty timeouts <- newIORef id - ctrl <- newControl shouldRegister + ctrl <- newControl False state <- newIORef Created us <- newSource _ <- mkWeakIORef state $ do |