unregisterTimeout :: Manager -> TimeoutKey -> IO ()
unregisterTimeout mgr (TK key) =
    postMgr mgr $ modifyTQ $ Q.delete key
unregisterTimeout :: Manager -> TimeoutKey -> IO ()
unregisterTimeout mgr (TK key) =
    postMgr mgr $ modifyTQ $ Q.delete key
unregisterTimeout mgr (TK key) =
    postMgr mgr $ modifyTQ $ Q.delete key