8ea5f3ff99
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'
30 lines
522 B
Haskell
30 lines
522 B
Haskell
{- 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
|