jsaddle 0.4.0.4 → 0.4.0.5

raw patch · 3 files changed

+9/−13 lines, 3 files

Files

• jsaddle.cabal +1/−1
• src/Language/Javascript/JSaddle/Monad.hs +4/−4
• src/Language/Javascript/JSaddle/Object.hs +4/−8

@@ -1,5 +1,5 @@ name: jsaddle-version: 0.4.0.4+version: 0.4.0.5 cabal-version: >=1.10 build-type: Simple license: MIT

@@ -121,11 +121,11 @@ #endif  #ifdef ghcjs_HOST_OS-runJSaddle :: w -> JSM a -> IO a-runJSaddle _ f = runReaderT f ()+runJSaddle :: MonadIO m => w -> JSM a -> m a+runJSaddle _ f = liftIO $ runReaderT f () #else-runJSaddle :: WebView -> JSM a -> IO a-runJSaddle webView f = do+runJSaddle :: MonadIO m => WebView -> JSM a -> m a+runJSaddle webView f = liftIO $ do     GlobalContext gctxt <- webViewGetMainFrame webView >>= webFrameGetGlobalContext     withForeignPtr gctxt $ \ptr ->         runReaderT f (castPtr ptr)

@@ -203,10 +203,10 @@ -- -- > jss name = to (<#name) ----- >>> testJSaddle $ eval "'Hello World'.length"--- 11--- >>> testJSaddle $ val "Hello World" ^. js "length"--- 11+-- >>> testJSaddle $ eval "'Hello World'.length = 12"+-- 12+-- >>> testJSaddle $ val "Hello World" ^. jss "length" 12+-- 12 jss :: (ToJSString name, ToJSVal val)    => name          -- ^ Name of the property to find    -> val@@ -715,7 +715,3 @@ #else nullObject = Object . unsafePerformIO $ newForeignPtr_ nullPtr #endif----