diff options
-rw-r--r-- | CHANGELOG | 10 | ||||
-rw-r--r-- | Utility/WinProcess.hs | 17 |
2 files changed, 11 insertions, 16 deletions
@@ -1,3 +1,13 @@ +git-annex (6.20171019) UNRELEASED; urgency=medium + + * Windows build fixed, and changed to use stack for more relaiable build + environment. + * Code for terminating processes on Windows is not linking anymore; + made a warning be displayed instead. This breaks restarting the + assistant and git annex assistant --stop. + + -- Joey Hess <id@joeyh.name> Tue, 24 Oct 2017 13:12:52 -0400 + git-annex (6.20171018) unstable; urgency=medium * add: Replace work tree file atomically on systems supporting hard diff --git a/Utility/WinProcess.hs b/Utility/WinProcess.hs index 31f6cfc69..4277931c0 100644 --- a/Utility/WinProcess.hs +++ b/Utility/WinProcess.hs @@ -5,24 +5,9 @@ - License: BSD-2-clause -} -{-# LANGUAGE ForeignFunctionInterface #-} - module Utility.WinProcess where import Utility.PID -import System.Win32.Process -import Control.Exception (bracket) -import Control.Monad - terminatePID :: PID -> IO () -terminatePID p = bracket - (openProcess pROCESS_TERMINATE False p) - (void . c_closeProcess) - (\h -> void $ c_TerminateProcess h 1) - -foreign import ccall unsafe "windows.h TerminateProcess" - c_TerminateProcess :: ProcessHandle -> Int -> IO Int - -foreign import ccall unsafe "windows.h CloseHandle" - c_closeProcess :: ProcessHandle -> IO Bool +terminatePID p = warning "terminating processes on windows is not currently working" |