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
				
			
		| 
						 | 
				
			
			@ -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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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. -}
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -14,7 +14,7 @@ import Utility.PID
 | 
			
		|||
#ifndef mingw32_HOST_OS
 | 
			
		||||
import Utility.LogFile
 | 
			
		||||
#else
 | 
			
		||||
import System.Win32.Process (terminateProcessId)
 | 
			
		||||
import System.Win32.Process (terminateProcessById)
 | 
			
		||||
import Utility.LockFile
 | 
			
		||||
#endif
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -162,7 +162,7 @@ stopDaemon pidfile = go =<< checkDaemon pidfile
 | 
			
		|||
#ifndef mingw32_HOST_OS
 | 
			
		||||
		signalProcess sigTERM pid
 | 
			
		||||
#else
 | 
			
		||||
		terminateProcessId pid
 | 
			
		||||
		terminateProcessById pid
 | 
			
		||||
#endif
 | 
			
		||||
 | 
			
		||||
{- Windows locks a lock file that corresponds with the pid of the process.
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue