git-annex/Utility/WinProcess.hs

{- Windows processes
 -
 - Copyright 2014 Joey Hess <joey@kitenet.net>
 -
 - License: BSD-2-clause
 -}

{-# LANGUAGE ForeignFunctionInterface #-}

module Utility.WinProcess where

import Utility.PID

foreign import ccall unsafe "terminatepid"
	terminatePID :: PID -> IO ()
windows: Fix process termination code. The ctrl-c hack used before didn't actually seem to work. No haskell libraries expose TerminateProcess. I tried just calling it via FFI, but got segfaults, probably to do with the wacky process handle not being managed correctly. Moving it all into one C function worked. This was hell. The EvilLinker hack was just final icing on the cake. We all know what the cake was made of. 2014-02-13 18:00:15 +00:00			`{- Windows processes`
			`-`
			`- Copyright 2014 Joey Hess <joey@kitenet.net>`
			`-`
relicense general utility library code to BSD Omitted a couple of files what have had significant contributions from others. 2014-05-10 14:01:27 +00:00			`- License: BSD-2-clause`
windows: Fix process termination code. The ctrl-c hack used before didn't actually seem to work. No haskell libraries expose TerminateProcess. I tried just calling it via FFI, but got segfaults, probably to do with the wacky process handle not being managed correctly. Moving it all into one C function worked. This was hell. The EvilLinker hack was just final icing on the cake. We all know what the cake was made of. 2014-02-13 18:00:15 +00:00			`-}`

			`{-# LANGUAGE ForeignFunctionInterface #-}`

			`module Utility.WinProcess where`

			`import Utility.PID`

			`foreign import ccall unsafe "terminatepid"`
			`terminatePID :: PID -> IO ()`