1 --!!! test various I/O Requests
7 --import Trace ToDo: get this via GlaExts -- SOF
11 hPutStr stderr (shows prog "\n")
13 hPutStr stderr (shows args "\n")
15 hPutStr stderr (shows path "\n")
16 stdin_txt <- getContents
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")