Initial import from https://bitbucket.org/darq/haskellfrompython/

Example.hs

@@ -0,0 +1,14 @@
+{-# LANGUAGE ForeignFunctionInterface #-}
+
+module Example 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

Makefile

@@ -0,0 +1,19 @@
+GHC=ghc-6.12.1
+
+libffi-example.so: Example.o wrapper.o Example_stub.o
+	$(GHC) -o $@ -shared -dynamic -fPIC $^ -lHSrts-ghc6.12.1
+
+Example_stub.c Example_stub.h Example.o: Example.hs
+	$(GHC) -c -dynamic -fPIC Example.hs
+
+Example_stub.o: Example_stub.c
+	$(GHC) -c -dynamic -fPIC Example_stub.c
+
+wrapper.o: wrapper.c Example_stub.h
+	$(GHC) -c -dynamic -fPIC wrapper.c
+
+clean:
+	rm -f *.hi *.o *_stub.[ch]
+
+clean-all:
+	rm -f *.hi *.o *_stub.[ch] *.so

program.py

@@ -0,0 +1,11 @@
+#program.py
+
+from ctypes import *
+
+lib = cdll.LoadLibrary("./libffi-example.so")
+
+lib.example_init()
+x=lib.fibonacci_hs(42)
+print x
+lib.example_exit()
+

wrapper.c

@@ -0,0 +1,15 @@
+#include <stdlib.h>
+
+#include "HsFFI.h"
+
+void
+example_init (void)
+{
+  hs_init (NULL, NULL);
+}
+
+void
+example_exit (void)
+{
+  hs_exit ();
+}