From: Ian Lynagh <igloo@earth.li>
Date: Wed, 4 Nov 2009 17:49:45 +0000 (+0000)
Subject: Fix the build on Windows
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=02a7b22f3e46548b790406e4dfda6688dc3f531d;p=ghc-base.git

Fix the build on Windows
---

diff --git a/GHC/Conc.lhs b/GHC/Conc.lhs
index eac470b..22bf113 100644
--- a/GHC/Conc.lhs
+++ b/GHC/Conc.lhs
@@ -765,15 +765,13 @@ data DelayReq
   | DelaySTM {-# UNPACK #-} !USecs {-# UNPACK #-} !(TVar Bool)
 
 #ifndef mingw32_HOST_OS
+{-# NOINLINE pendingEvents #-}
 pendingEvents :: IORef [IOReq]
+pendingEvents = unsafePerformIO $ newIORef []
 #endif
-pendingDelays :: IORef [DelayReq]
-{-# NOINLINE pendingEvents #-}
 {-# NOINLINE pendingDelays #-}
-(pendingEvents,pendingDelays) = unsafePerformIO $ do
-  reqs <- newIORef []
-  dels <- newIORef []
-  return (reqs, dels)
+pendingDelays :: IORef [DelayReq]
+pendingDelays = unsafePerformIO $ newIORef []
 
 {-# NOINLINE ioManagerThread #-}
 ioManagerThread :: MVar (Maybe ThreadId)