ghc/tests/codeGen/cg025.stdout

   1 --!!! test various I/O Requests
   2 --
   3 --
   4 import IO
   5 import System
   6 import IOBase (trace)
   7 --import Trace ToDo: get this via GlaExts -- SOF
   8
   9 main = do
  10     prog <- getProgName
  11     hPutStr stderr (shows prog "\n")
  12     args <- getArgs
  13     hPutStr stderr (shows args "\n")
  14     path <- getEnv "PATH"
  15     hPutStr stderr (shows path "\n")
  16     stdin_txt <- getContents
  17     putStr stdin_txt
  18     file_cts <- readFile (head args)
  19     hPutStr  stderr file_cts
  20     trace "hello, trace" $
  21       catch (getEnv "__WURBLE__" >> return ()) (\ e -> error "hello, error\n")