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'
|