-- simple test of process management

import Control.Concurrent.HPL

main = 
  do
    (stdoutp, stderrp) <- spawn2_ $ \stdout stderr ->
      do
	putStrLn "*** stdout ***"
	putStr   stdout
	putStrLn "*** end of stdout ***"
	putStrLn "*** stderr ***"
	putStr   stderr
	putStrLn "*** end of stderr ***"
    --
    proc "ls" [] "" stdoutp stderrp
    waitForThread stdoutp