从 Rust 调用动态链接的 Haskell 代码

我正试图用Haskell代码编译一些 rust 迹代码.我用一个文件建立了一个测试系统，Fibonacci.hs带有一个函数，该函数在Haskell中计算斐波那契数，并通过Haskell的FFI将函数导出为fibonacci_hs(如下所示:https://github.com/nh2/haskell-from-python，尽管我将在底部复制和粘贴)，在wrapper.c中定义了要导出的函数，用于初始化和退出Haskell的RTS.

代码如下所示:

{- Fibonacci.hs -}
{-# LANGUAGE ForeignFunctionInterface #-}

module Fibonacci where

import Foreign.C.Types

fibonacci :: Int -> Int
fibonacci n = fibs !! n
    where fibs = 0 : 1 : zipWith (+) fibs (tail fibs)

fibonacci_hs :: CInt -> CInt
fibonacci_hs = fromIntegral . fibonacci . fromIntegral

foreign export ccall fibonacci_hs :: CInt -> CInt

// wrapper.c

#include <stdlib.h>
#include "HsFFI.h"

void
example_init (void)
{
  hs_init (NULL, NULL);
}

void
example_exit (void)
{
  hs_exit ();
}

我通过以下方式编译这些文件:

ghc -c -dynamic -fPIC Fibonacci.hs

ghc -c -dynamic -fPIC wrapper.c

我通过以下方式将这些对象链接到一个共享/动态库(稍后将对此进行详细介绍):

ghc -o libfibonacci.so -shared -dynamic -fPIC Fibonacci.o wrapper.o -lHSrts

从链接的存储库中运行Python示例代码时，它在我的mac上运行良好，但我无法让它与Rust链接.

在Rust中，我的代码如下所示:

//main.rs
#[link(name = "fibonacci")]
extern {
    fn fibonacci_hs (n : i32); // c_int = i32
    fn fib_init (); // start hs rts
    fn fib_exit (); // kill hs rts
}

fn main () {
    unsafe {
        fib_init();
        for i in 0..100 {
            println!("{:?}th fibonacci : {:?}", i, fibonacci_hs(i));
        }
        fib_exit();
    }
}

我用rustc main.rs -L .编译(因为共享库文件是本地的).

在主程序库上编译时生成动态错误(然后在主程序库上生成ghc -o libfibonacci.so -shared -static haskell/Fibonacci.o haskell/wrapper.o -lHSrts个)在运行时:

dyld: Symbol not found: _ffi_call
  Referenced from: ./libfibonacci.so
  Expected in: flat namespace
 in ./libfibonacci.so
Trace/BPT trap: 5

提前谢谢你的帮助.