HaPy-0.1.1.0: HaPy_init.c

#include "HsFFI.h"

static void initialize() __attribute__((constructor));
static void initialize() {
	static char *argv[] = {"HaPy", 0};
	static char **argv_ = argv;
	static int argc = 1;
	
	hs_init(&argc, &argv_);
}

static void finalize() __attribute__((destructor));
static void finalize() {
    hs_exit();
}