From 02a7b22f3e46548b790406e4dfda6688dc3f531d Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 4 Nov 2009 17:49:45 +0000 Subject: [PATCH] Fix the build on Windows --- GHC/Conc.lhs | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) 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) -- 1.7.10.4