ghc/tests/codeGen/should_run/cg025.stderr

   1 "cg025.bin"
   2 ["cg025.hs"]
   3 GOT PATH
   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 ("GOT 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")
  24 hello, trace
  25
  26 Fail: hello, error