ghc/misc/examples/posix/po005/Main.hs

   1 import Posix
   2
   3 main =
   4     getEnvVar "TERM" >>= \ term ->
   5     putStr term >>
   6     putChar '\n' >>
   7     setEnvironment [("one","1"),("two","2")] >>
   8     getEnvironment >>= \ env ->
   9     print env >>
  10     putChar '\n' >>
  11     setEnvVar "foo" "bar" >>
  12     getEnvironment >>= \ env ->
  13     print env >>
  14     putChar '\n' >>
  15     setEnvVar "foo" "baz" >>
  16     getEnvironment >>= \ env ->
  17     print env >>
  18     putChar '\n' >>
  19     setEnvVar "fu" "bar" >>
  20     getEnvironment >>= \ env ->
  21     print env >>
  22     putChar '\n' >>
  23     removeEnvVar "foo" >>
  24     getEnvironment >>= \ env ->
  25     print env >>
  26     putChar '\n' >>
  27     setEnvironment [] >>
  28     getEnvironment >>= \ env ->
  29     print env >>
  30     putChar '\n'