ghc/tests/codeGen/should_run/cg025.stderr

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