libraries/libiserv/cbits/iservmain.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#include <rts/PosixSource.h>
#include <Rts.h>

#include <HsFFI.h>

int main (int argc, char *argv[])
{
    RtsConfig conf = defaultRtsConfig;

    // We never know what symbols GHC will look up in the future, so
    // we must retain CAFs for running interpreted code.
    conf.keep_cafs = 1;

    conf.rts_opts_enabled = RtsOptsAll;
    extern StgClosure ZCMain_main_closure;
    hs_main(argc, argv, &ZCMain_main_closure, conf);
}