update to use HsFFI.h (was using the old Rts.h API)

1 files changed, 3 insertions, 5 deletions

diff --git a/testsuite/tests/ffi/should_run/ffi002_c.c b/testsuite/tests/ffi/should_run/ffi002_c.c
index 1e5edd2424..ccf9ac99cf 100644
--- a/testsuite/tests/ffi/should_run/ffi002_c.c
+++ b/testsuite/tests/ffi/should_run/ffi002_c.c
@@ -1,21 +1,19 @@
 #include <stdio.h>
 #include "ffi002_stub.h"
 
-#include "RtsAPI.h"
-
-extern void __stginit_Foo ( void );
+#include "HsFFI.h"
 
 int main(int argc, char *argv[])
 {
   int i;
 
-  startupHaskell(argc, argv, __stginit_Foo);
+  hs_init(&argc, &argv);
 
   for (i = 0; i < 5; i++) {
     printf("%d\n", foo(2500));
   }
 
-  shutdownHaskell();
+  hs_exit();
 
   return 0;
 }