git-annex/Utility/PID.hs

{- process ids
 -
 - Copyright 2014 Joey Hess <id@joeyh.name>
 -
 - License: BSD-2-clause
 -}

{-# LANGUAGE CPP #-}

module Utility.PID (PID, getPID) where

#ifndef mingw32_HOST_OS
import System.Posix.Types (ProcessID)
import System.Posix.Process (getProcessID)
#else
import System.Win32.Process (ProcessId, getCurrentProcessId)
#endif

#ifndef mingw32_HOST_OS
type PID = ProcessID
#else
type PID = ProcessId
#endif

getPID :: IO PID
#ifndef mingw32_HOST_OS
getPID = getProcessID
#else
getPID = getCurrentProcessId
#endif
fix windows build (and make --stop work on windows, incidentially) The Utility.PID will clean up other code soon. 2014-02-11 19:22:08 +00:00			`{- process ids`
			`-`
update my email address and homepage url 2015-01-21 16:50:09 +00:00			`- Copyright 2014 Joey Hess <id@joeyh.name>`
fix windows build (and make --stop work on windows, incidentially) The Utility.PID will clean up other code soon. 2014-02-11 19:22:08 +00:00			`-`
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`
fix windows build (and make --stop work on windows, incidentially) The Utility.PID will clean up other code soon. 2014-02-11 19:22:08 +00:00			`-}`

			`{-# LANGUAGE CPP #-}`

explict export lists Eliminated some dead code. In other cases, exported a currently unused function, since it was a logical part of the API. Of course this improves the API documentation. It may also sometimes let ghc optimize code better, since it can know a function is internal to a module. 364 modules still to go, according to git grep -E 'module [A-Za-z.]+ where' 2019-11-21 19:38:06 +00:00			`module Utility.PID (PID, getPID) where`
fix windows build (and make --stop work on windows, incidentially) The Utility.PID will clean up other code soon. 2014-02-11 19:22:08 +00:00
			`#ifndef mingw32_HOST_OS`
			`import System.Posix.Types (ProcessID)`
			`import System.Posix.Process (getProcessID)`
			`#else`
Revert "Revert "remove dep on Win32-extras"" This reverts commit d18bc52caf6ad5ac8edd42900ad26af8c4aa4f03. 2017-11-13 16:55:23 +00:00			`import System.Win32.Process (ProcessId, getCurrentProcessId)`
fix windows build (and make --stop work on windows, incidentially) The Utility.PID will clean up other code soon. 2014-02-11 19:22:08 +00:00			`#endif`

			`#ifndef mingw32_HOST_OS`
			`type PID = ProcessID`
			`#else`
			`type PID = ProcessId`
			`#endif`

			`getPID :: IO PID`
			`#ifndef mingw32_HOST_OS`
			`getPID = getProcessID`
			`#else`
			`getPID = getCurrentProcessId`
			`#endif`