tests/libposix/posix014.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

-- !! Basic pipe usage
module Main (main) where

import System.Posix

main = do
  (rd, wd) <- createPipe
  pid <- forkProcess $ do (str, _) <- fdRead rd 32
                          putStrLn str
  fdWrite wd "Hi, there - forked child calling"
  getProcessStatus True False pid
  return ()