GHCJS：如何使用FFI導入高階JavaScript函數？

Question

如何在GHCJS中導入如下的Javascript函數？

xs.subscribe(function(x) { console.log(x) }) 

我嘗試沒有成功以下的各種組合：

data Observable_ 
data Disposable_ 

type Observable a = JSRef Observable_ 
type Disposable = JSRef() 

foreign import javascript unsafe "$1.subscribe($2)" 
    rx_subscribe :: Observable a -> JSRef (a -> IO()) -> IO Disposable 

任何幫助表示讚賞，並鏈接到GHCJS FFI的文檔。

感謝

Answer 1

由於在GHCJS IRC頻道的傢伙我得到了答案：

foreign import javascript safe "$1.subscribe($2)" 
    rx_subscribe :: Observable a -> JSFun (a -> IO()) -> IO Disposable 

subscribe :: FromJSRef a => (a -> IO()) -> Observable a -> IO Disposable 
subscribe f xs = syncCallback1 True True f' >>= rx_subscribe xs 
       where f' x = fromJSRef x >>= f . fromJust 

謝謝