rempve some unused files

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

diff --git a/ghc/misc/examples/posix/po005/Main.hs b/ghc/misc/examples/posix/po005/Main.hs
deleted file mode 100644 (file)
index 81dce3a..0000000
--- a/ghc/misc/examples/posix/po005/Main.hs
+++ /dev/null
@@ -1,30 +0,0 @@
-import Posix
-
-main =
-    getEnvVar "TERM" >>= \ term ->
-    putStr term >>
-    putChar '\n' >>
-    setEnvironment [("one","1"),("two","2")] >>
-    getEnvironment >>= \ env ->
-    print env >>
-    putChar '\n' >>
-    setEnvVar "foo" "bar" >>
-    getEnvironment >>= \ env ->
-    print env >>
-    putChar '\n' >>
-    setEnvVar "foo" "baz" >>
-    getEnvironment >>= \ env ->
-    print env >>
-    putChar '\n' >>
-    setEnvVar "fu" "bar" >>
-    getEnvironment >>= \ env ->
-    print env >>
-    putChar '\n' >>
-    removeEnvVar "foo" >>
-    getEnvironment >>= \ env ->
-    print env >>
-    putChar '\n' >>
-    setEnvironment [] >>
-    getEnvironment >>= \ env ->
-    print env >>
-    putChar '\n'