diff options
author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2020-04-21 21:39:05 +0200 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2020-07-15 16:41:02 -0400 |
commit | dd06f930a3228ef7ae8ea5c7225552d6df21f662 (patch) | |
tree | a0452c23ca4167cd79b5c599415af3f3c20f4189 /libraries | |
parent | 451b5f96c8a3366584a62034747c8b78fc3b0486 (diff) | |
download | haskell-dd06f930a3228ef7ae8ea5c7225552d6df21f662.tar.gz |
winio: Wake io manager once per registerTimeout.
Which is implicitly done in editTimeouts, so need to wake it
up twice.
Diffstat (limited to 'libraries')
-rw-r--r-- | libraries/base/GHC/Event/Windows.hsc | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/libraries/base/GHC/Event/Windows.hsc b/libraries/base/GHC/Event/Windows.hsc index d0b01e8704..5d0cfe44f4 100644 --- a/libraries/base/GHC/Event/Windows.hsc +++ b/libraries/base/GHC/Event/Windows.hsc @@ -777,7 +777,6 @@ registerTimeout mgr@Manager{..} uSrelTime cb = do else do !expTime <- expirationTime mgrClock uSrelTime :: IO Q.Prio editTimeouts mgr (Q.unsafeInsertNew key expTime cb) - wakeupIOManager return $ TK key -- | Update an active timeout to fire in the given number of seconds (from the |