[commit: base] master: Use poll backend for TimerManager. (a6f52b1)

Johan Tibell johan.tibell at gmail.com
Tue Feb 12 07:50:13 CET 2013


Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/a6f52b1903f8f8a6c6cf8b4d74864c2e07ebeac4

>---------------------------------------------------------------

commit a6f52b1903f8f8a6c6cf8b4d74864c2e07ebeac4
Author: Andreas Voellmy <andreas.voellmy at gmail.com>
Date:   Fri Dec 21 16:49:35 2012 -0500

    Use poll backend for TimerManager.

>---------------------------------------------------------------

 GHC/Event/TimerManager.hs |   12 ++----------
 1 files changed, 2 insertions(+), 10 deletions(-)

diff --git a/GHC/Event/TimerManager.hs b/GHC/Event/TimerManager.hs
index 8026ffd..49b0d6c 100644
--- a/GHC/Event/TimerManager.hs
+++ b/GHC/Event/TimerManager.hs
@@ -59,11 +59,7 @@ import System.Posix.Types (Fd)
 import qualified GHC.Event.Internal as I
 import qualified GHC.Event.PSQ as Q
 
-#if defined(HAVE_KQUEUE)
-import qualified GHC.Event.KQueue as KQueue
-#elif defined(HAVE_EPOLL)
-import qualified GHC.Event.EPoll  as EPoll
-#elif defined(HAVE_POLL)
+#if defined(HAVE_POLL)
 import qualified GHC.Event.Poll   as Poll
 #else
 # error not implemented for this operating system
@@ -138,11 +134,7 @@ handleControlEvent mgr fd _evt = do
     CMsgSignal fp s -> runHandlers fp s
 
 newDefaultBackend :: IO Backend
-#if defined(HAVE_KQUEUE)
-newDefaultBackend = KQueue.new
-#elif defined(HAVE_EPOLL)
-newDefaultBackend = EPoll.new
-#elif defined(HAVE_POLL)
+#if defined(HAVE_POLL)
 newDefaultBackend = Poll.new
 #else
 newDefaultBackend = error "no back end for this platform"





More information about the ghc-commits mailing list