ghc/tests/codeGen/should_run/cg025.stderr

   1 "cg025.bin"
   2 ["cg025.hs"]
   3 "/bin:/usr/bin:/users/ets/simonm/bin:/users/ets/simonm/bin/i386-unknown-freebsd:/usr/local/bin:/sbin:/usr/sbin:/usr/X11R6/bin:/usr/local/X11R6/bin:/local/fp/bin:/local/fp/bin/i386-unknown-freebsd:/local/ets/go/i386-unknown-freebsd:/usr/local/teTeX/bin"
   4 --!!! test various I/O Requests
   5 --
   6 --
   7 import IO
   8 import System
   9 import IOExts (trace)
  10
  11 main = do
  12     prog <- getProgName
  13     hPutStr stderr (shows prog "\n")
  14     args <- getArgs
  15     hPutStr stderr (shows args "\n")
  16     path <- getEnv "PATH"
  17     hPutStr stderr (shows path "\n")
  18     stdin_txt <- getContents
  19     putStr stdin_txt
  20     file_cts <- readFile (head args)
  21     hPutStr  stderr file_cts
  22     trace "hello, trace" $
  23       catch (getEnv "__WURBLE__" >> return ()) (\ e -> error "hello, error\n")
  24 Trace On:
  25 hello, trace
  26 Trace Off.
  27
  28 Fail: hello, error