HscTypes: Use foldl' instead of foldr
[ghc.git] / iserv / cbits / iservmain.c
1 #include "../rts/PosixSource.h"
2 #include "Rts.h"
3
4 #include "HsFFI.h"
5
6 int main (int argc, char *argv[])
7 {
8 RtsConfig conf = defaultRtsConfig;
9
10 // We never know what symbols GHC will look up in the future, so
11 // we must retain CAFs for running interpreted code.
12 conf.keep_cafs = 1;
13
14 conf.rts_opts_enabled = RtsOptsAll;
15 extern StgClosure ZCMain_main_closure;
16 hs_main(argc, argv, &ZCMain_main_closure, conf);
17 }