diff options
Diffstat (limited to 'libraries/base/GHC/Event/TimerManager.hs')
| -rw-r--r-- | libraries/base/GHC/Event/TimerManager.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/Event/TimerManager.hs b/libraries/base/GHC/Event/TimerManager.hs index 4cac18d9a0..533558a8cc 100644 --- a/libraries/base/GHC/Event/TimerManager.hs +++ b/libraries/base/GHC/Event/TimerManager.hs @@ -226,7 +226,7 @@ registerTimeout mgr us cb = do -- | Unregister an active timeout. unregisterTimeout :: TimerManager -> TimeoutKey -> IO () -unregisterTimeout mgr (TK key) = do +unregisterTimeout mgr (TK key) = editTimeouts mgr (Q.delete key) -- | Update an active timeout to fire in the given number of |