From 610d4c3a64d1cb6d25d1ba065b26b0fbf6232eed Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Sun, 27 Dec 2020 11:24:47 -0500
Subject: [PATCH] base: Fix Windows event manager
Fix an earlier rebase mistake.
---
libraries/base/GHC/Event/Windows.hsc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/libraries/base/GHC/Event/Windows.hsc b/libraries/base/GHC/Event/Windows.hsc
index 1d81819e2f06..ea2c51053a06 100644
--- a/libraries/base/GHC/Event/Windows.hsc
+++ b/libraries/base/GHC/Event/Windows.hsc
@@ -668,7 +668,7 @@ withOverlappedEx mgr fname h offset startCB completionCB = do
-- the pointer.
debugIO $ "## Waiting for cancellation record... "
_ <- FFI.getOverlappedResult h lpol True
- oldDataPtr <- exchangePtr ptr_lpol nullReq
+ oldDataPtr <- I.exchangePtr ptr_lpol nullReq
when (oldDataPtr == cdData) $
do reqs1 <- removeRequest
debugIO $ "-1.. " ++ show reqs1 ++ " requests queued after error."
--
GitLab