blob: cf1c764486b436ced3bf001e930dd37a1d0a5ca7 (
plain)
1
2
3
4
5
6
7
8
|
import Control.Monad
import Control.Concurrent
import System.Posix.User
main = do
void $ forkIO $ forever $ getGroupEntryForID 0
void $ forkIO $ forever $ getGroupEntryForID 0
threadDelay (3*1000*1000)
|