8 lines
214 B
Haskell
8 lines
214 B
Haskell
import System.Posix.Process
|
|
|
|
main = do
|
|
pgid <- getProcessGroupID
|
|
pgid' <- getProcessGroupIDOf =<< getProcessID
|
|
putStr "Testing getProcessGroupID == getProcessGroupIDOf =<< getProcessID: "
|
|
print $ pgid == pgid'
|