blob: cd9f70b739a698c128de7ffa1e85aacab6beb3bd (
plain)
1
2
3
4
5
6
7
|
import System.Posix.Process
main = do
pgid <- getProcessGroupID
pgid' <- getProcessGroupIDOf =<< getProcessID
putStr "Testing getProcessGroupID == getProcessGroupIDOf =<< getProcessID: "
print $ pgid == pgid'
|