From 7f59c72a41fbea72eef1f207439918784fbbe08d Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 26 Oct 2005 08:41:32 +0000
Subject: [PATCH 1/1] [project @ 2005-10-26 08:41:32 by simonpj] Fix
 PUSH_ON_RUN_QUEUE bug on Win32

---
 ghc/rts/win32/AsyncIO.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/rts/win32/AsyncIO.c b/ghc/rts/win32/AsyncIO.c
index 12893f3..6881275 100644
--- a/ghc/rts/win32/AsyncIO.c
+++ b/ghc/rts/win32/AsyncIO.c
@@ -286,7 +286,7 @@ start:
 			/* Terminates the run queue + this inner for-loop. */
 			tso->link = END_TSO_QUEUE;
 			tso->why_blocked = NotBlocked;
-			PUSH_ON_RUN_QUEUE(tso);
+			pushOnRunQueue(&MainCapability, tso);
 			break;
 		    }
 		    break;
-- 
1.7.10.4