Ticket #1905: Fork.hs

File Fork.hs, 395 bytes (added by wferi, 8 years ago)
Line 
1module Main where
2
3import Control.Exception (handle)
4import System.IO
5import System.Process
6
7sleeper = do
8    sleep <- runProcess "sleep" ["5"] (Just "nonexistent")
9         Nothing Nothing Nothing Nothing
10    waitForProcess sleep
11    return ()
12
13main = do
14    handle (hPrint stderr) sleeper
15    ps <- runProcess "ps" ["xf"] Nothing
16         Nothing Nothing Nothing Nothing
17    waitForProcess ps