Comment retourner JSObject à partir de JSFunction?

Question

Je voudrais renvoyer une référence à un objet Javascript à partir d'une définition de la fonction de FFI afin de pouvoir manipuler l'objet plus tard:

import   Data.Aeson 
import   Foreign.JavaScript (JSObject, NewJSObject, unsafeCreateJSObject) 
import   Foreign.RemotePtr (RemotePtr) 
import   Graphics.UI.Threepenny.Core hiding (text) 

mkJSObject :: JSFunction NewJSObject -> UI JSObject 
mkJSObject f = askWindow >>= liftIO . flip unsafeCreateJSObject f 

polyLine :: [[Double]] -> Value -> UI JSObject 
polyLine points = mkJSObject . f points 
    where 
    f :: [[Double]] -> Value -> JSFunction NewJSObject 
    f = ffi "L.polyline(%1, %2).addTo(map)" 

Mais le Javascript fenêtre sous-jacente ne semble pas être publiquement accessible. Existe-t-il un autre moyen de créer des références aux objets Javascript?

Answer 1

Il est en fait beaucoup plus simple: Il suffit de retourner un JSObject de fonctionJS et il sera rangea correctement:

polyLine :: [[Double]] -> Value -> UI JSObject 
polyLine points = callFunction . f points 
    where 
    f :: [[Double]] -> Value -> JSFunction JSObject 
    f = ffi "L.polyline(%1, %2).addTo(map)"