rempve some unused files

[ghc-hetmet.git] / ghc / misc / examples / posix / po001 / Main.hs

diff --git a/ghc/misc/examples/posix/po001/Main.hs b/ghc/misc/examples/posix/po001/Main.hs
deleted file mode 100644 (file)
index 31c32ba..0000000
--- a/ghc/misc/examples/posix/po001/Main.hs
+++ /dev/null
@@ -1,23 +0,0 @@
-import Posix
-
-main =
-    getParentProcessID >>= \ ppid ->
-    getProcessID >>= \ pid ->
-    putStr "Parent Process ID: " >>
-    print ppid >>
-    putStr "\nProcess ID: " >>
-    print pid >>
-    putStr "\nforking ps uxww" >>
-    print ppid >>
-    putChar '\n' >>
-    forkProcess >>= \ child ->
-    case child of
-       Nothing -> executeFile "ps" True ["uxww" ++ show ppid] Nothing
-       Just x -> doParent x pid
-
-doParent cpid pid =
-    getProcessStatus True False cpid >>
-    putStr "\nChild finished.  Now exec'ing ps uxww" >>
-    print pid >>
-    putChar '\n' >>
-    executeFile "ps" True ["uxww" ++ show pid] Nothing