1 -- !!! test various I/O Requests
12 let Just (name:_) = matchRegex (mkRegex ".*(cg025.bin)") prog
13 hPutStr stderr (shows name "\n")
15 hPutStr stderr (shows args "\n")
17 hPutStr stderr ("GOT PATH\n")
18 stdin_txt <- getContents
20 file_cts <- readFile (head args)
21 hPutStr stderr file_cts
22 trace "hello, trace" $
23 catch (getEnv "__WURBLE__" >> return ()) (\ e -> error "hello, error")