[commit: ghc] wip/oneShot: Make travis happy (d059438)

git at git.haskell.org git at git.haskell.org
Sat Oct 25 10:27:09 UTC 2014


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/oneShot
Link       : http://ghc.haskell.org/trac/ghc/changeset/d059438d498bee57acb47205c08f22fc45e96f13/ghc

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

commit d059438d498bee57acb47205c08f22fc45e96f13
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Oct 7 13:37:23 2014 +0200

    Make travis happy


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

d059438d498bee57acb47205c08f22fc45e96f13
 libraries/base/GHC/Event/Manager.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/libraries/base/GHC/Event/Manager.hs b/libraries/base/GHC/Event/Manager.hs
index 2041379..29edd97 100644
--- a/libraries/base/GHC/Event/Manager.hs
+++ b/libraries/base/GHC/Event/Manager.hs
@@ -167,10 +167,10 @@ newDefaultBackend = error "no back end for this platform"
 
 -- | Create a new event manager.
 new :: Bool -> IO EventManager
-new oneShot = newWith oneShot =<< newDefaultBackend
+new isOneShot = newWith isOneShot =<< newDefaultBackend
 
 newWith :: Bool -> Backend -> IO EventManager
-newWith oneShot be = do
+newWith isOneShot be = do
   iofds <- fmap (listArray (0, callbackArraySize-1)) $
            replicateM callbackArraySize (newMVar =<< IT.new 8)
   ctrl <- newControl False
@@ -187,7 +187,7 @@ newWith oneShot be = do
                          , emState = state
                          , emUniqueSource = us
                          , emControl = ctrl
-                         , emOneShot = oneShot
+                         , emOneShot = isOneShot
                          , emLock = lockVar
                          }
   registerControlFd mgr (controlReadFd ctrl) evtRead



More information about the ghc-commits mailing list