testsuite/tests/ghc-regress/lib/System/getArgs001.hs


1
2
3
4
5
6
7
8
9

import System.Environment (getProgName, getArgs)

main = 
    getProgName >>= \ argv0 ->
    putStr argv0 >>
    getArgs >>= \ argv ->
    sequence (map (\ x -> putChar ' ' >> putStr x) argv) >>
    putChar '\n'