git.iko.soy/jsaddle
on master help sign in
Use AlwaysRetain for now. We should revist this.
commita59b1cb849f277dfef44f52d35625f9bbd4512a8 authorHamish Mackenzie <Hamish.K.Mackenzie@googlemail.com> dateSun 8 Jun 2014, 04:36 (12 years ago) parentb3dc414
1 file changed+1−1
compare with master
unifiedsplit
src/Language/Javascript/JSaddle/Object.hs+1−1
src/Language/Javascript/JSaddle/Object.hs+1−1
@@ -336,7 +336,7 @@ function :: MakeStringRef name
336336 -- call the Haskell one when it is called
337337#if defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)
338338function name f = liftIO $ do
339− callback <- syncCallback2 NeverRetain True $ \this args -> do
339+ callback <- syncCallback2 AlwaysRetain True $ \this args -> do
340340 rargs <- fromArray args
341341 runReaderT (f this this rargs) () -- TODO pass function object through
342342 makeFunctionWithCallback (makeStringRef name) callback