GHCJS: Wie importiere ich eine JavaScript Funktion mit FFI?

Question

Wie importiere ich in GHCJS eine Javascript-Funktion wie die folgende?

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

Ich habe versucht, verschiedene Kombinationen der folgenden ohne Erfolg:

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 

Jede Hilfe sehr geschätzt wird, und Links zur Dokumentation des GHCJS FFI.

Dank

Answer 1

Dank an die Jungs auf dem GHCJS IRC-Kanal bekam ich die Antwort:

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 

Danke