terminateProcessId renamed
win32 upstream suggested a better name
This commit is contained in:
parent
0ae2ac282e
commit
584dbfb892
3 changed files with 6 additions and 6 deletions
|
@ -41,7 +41,7 @@ import qualified Control.Concurrent.MSemN as MSemN
|
|||
import System.Posix.Process (getProcessGroupIDOf)
|
||||
import System.Posix.Signals (signalProcessGroup, sigTERM, sigKILL)
|
||||
#else
|
||||
import System.Win32.Process (terminateProcessId)
|
||||
import System.Win32.Process (terminateProcessById)
|
||||
#endif
|
||||
|
||||
type TransferGenerator = Assistant (Maybe (Transfer, TransferInfo, Transferrer -> Assistant ()))
|
||||
|
@ -270,7 +270,7 @@ cancelTransfer pause t = do
|
|||
threadDelay 50000 -- 0.05 second grace period
|
||||
signal sigKILL
|
||||
#else
|
||||
terminateProcessId pid
|
||||
terminateProcessById pid
|
||||
#endif
|
||||
|
||||
{- Start or resume a transfer. -}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue