diff options
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Restart.hs | 4 | ||||
| -rw-r--r-- | Assistant/TransferSlots.hs | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/Assistant/Restart.hs b/Assistant/Restart.hs index ce180b370..7d6575995 100644 --- a/Assistant/Restart.hs +++ b/Assistant/Restart.hs @@ -27,7 +27,7 @@ import Control.Concurrent #ifndef mingw32_HOST_OS import System.Posix (signalProcess, sigTERM) #else -import System.Win32.Process (terminateProcessId) +import System.Win32.Process (terminateProcessById) #endif import Network.URI @@ -59,7 +59,7 @@ terminateSelf = #ifndef mingw32_HOST_OS signalProcess sigTERM =<< getPID #else - terminateProcessId =<< getPID + terminateProcessById =<< getPID #endif runRestart :: Assistant URLString diff --git a/Assistant/TransferSlots.hs b/Assistant/TransferSlots.hs index 74453004d..c0d464e41 100644 --- a/Assistant/TransferSlots.hs +++ b/Assistant/TransferSlots.hs @@ -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. -} |