blob: a62fc44c04b63b82338f060fab1942564514eb88 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
"cgrun025"
["cgrun025.hs"]
GOT PATH
-- !!! test various I/O Requests
--
--
import IO
import System
import Debug.Trace (trace)
import Text.Regex
import Maybe
main = do
prog <- getProgName
let Just (name:_) = matchRegex (mkRegex ".*(cgrun025)") prog
hPutStr stderr (shows name "\n")
args <- getArgs
hPutStr stderr (shows args "\n")
path <- getEnv "PATH"
hPutStr stderr ("GOT PATH\n")
stdin_txt <- getContents
putStr stdin_txt
file_cts <- readFile (head args)
hPutStr stderr file_cts
trace "hello, trace" $
catch (getEnv "__WURBLE__" >> return ()) (\ e -> error "hello, error")
hello, trace
cgrun025: hello, error
|
