diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-07-17 14:20:50 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-07-17 14:20:50 +0000 |
| commit | 8bac478832e0cf9fa7ad1cfc81c08b0b9f13938e (patch) | |
| tree | ab0e7316f2e4bbb58b5ed9942c8798866e4530b5 /rts/RtsStartup.c | |
| parent | 1d708730ee5d0882c59f3d90422ff04fa0e5f39b (diff) | |
| download | haskell-8bac478832e0cf9fa7ad1cfc81c08b0b9f13938e.tar.gz | |
Implement the RTS side of GHC.Environment.getFullArgs
Diffstat (limited to 'rts/RtsStartup.c')
| -rw-r--r-- | rts/RtsStartup.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 7dce06e640..a363c133f4 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -199,6 +199,7 @@ hs_init(int *argc, char **argv[]) /* Parse the flags, separating the RTS flags from the programs args */ if (argc != NULL && argv != NULL) { + setFullProgArgv(*argc,*argv); setupRtsFlags(argc, *argv, &rts_argc, rts_argv); setProgArgv(*argc,*argv); } |