diff options
author | Ben Gamari <ben@smart-cactus.org> | 2020-12-27 11:24:47 -0500 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2020-12-27 11:24:47 -0500 |
commit | 610d4c3a64d1cb6d25d1ba065b26b0fbf6232eed (patch) | |
tree | 4f21e1695abb6b9b08dca2e79eff70145f7c547e | |
parent | 8dbf5280db39592c585530b75d1ecd3c9f647ac4 (diff) | |
download | haskell-610d4c3a64d1cb6d25d1ba065b26b0fbf6232eed.tar.gz |
base: Fix Windows event manager
Fix an earlier rebase mistake.
-rw-r--r-- | libraries/base/GHC/Event/Windows.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/Event/Windows.hsc b/libraries/base/GHC/Event/Windows.hsc index 1d81819e2f..ea2c51053a 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." |