// This file provides functions for the wetterhorn harness that are not
// expressible directly in haskell.
//
// Currently these functions exclusively enable/disable the Haskell runtime.

#include "HsFFI.h"
#include "plugin_interface.h"

const char *plugin_name = "Wetterhorn";

void plugin_load(int argc, char **argv) { hs_init(&argc, &argv); }
void plugin_metaload(int argc, char **argv) { hs_init(&argc, &argv); }
void plugin_teardown(opqst_t st) { hs_exit(); }