-- | Variant of 'postIO' that allows the callback to modify the
-- timeout queue.
postMgr :: Manager -> Mgr () -> IO ()
postMgr mgr cb = newOverlapped 0 (\_errCode _numBytes -> cb)
             >>= FFI.postCompletion (mgrIOCP mgr) 0
postMgr :: Manager -> Mgr () -> IO ()
postMgr mgr cb = newOverlapped 0 (\_errCode _numBytes -> cb)
             >>= FFI.postCompletion (mgrIOCP mgr) 0
postMgr mgr cb = newOverlapped 0 (\_errCode _numBytes -> cb)
             >>= FFI.postCompletion (mgrIOCP mgr) 0