blob: e669b278e0d21b2343f3ecf06504c29994e910a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
-- :main and :run
let main = System.Environment.getArgs >>= print
:main foo bar
:main foo "bar baz"
:main ["foo", "bar baz"]
let foo = putStrLn "foo" >> System.Environment.getArgs >>= print
let bar = putStrLn "bar" >> System.Environment.getArgs >>= print
:set -main-is foo
:main foo "bar baz"
:run bar ["foo", "bar baz"]
|
