iserv/cbits/iservmain.c


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

#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;

    extern StgClosure ZCMain_main_closure;
    hs_main(argc, argv, &ZCMain_main_closure, conf);
}