git.iko.soy/jsaddle
on master help sign in
Add runJSC_
99047d7Hamish Mackenzie
src/Language/Javascript/JSC/Monad.hs+3
compare with master
unifiedsplit
@@ -18,6 +18,7 @@ module Language.Javascript.JSC.Monad (
18
18
19 -- * Running JSC given a DOM Window
19 -- * Running JSC given a DOM Window
20 , runJSC
20 , runJSC
21+ , runJSC_
21
22
22 -- * Exception Handling
23 -- * Exception Handling
23 , catchval
24 , catchval
@@ -95,3 +96,5 @@ runJSC webView f = do
95 gctxt <- webViewGetMainFrame webView >>= webFrameGetGlobalContext
96 gctxt <- webViewGetMainFrame webView >>= webFrameGetGlobalContext
96 runReaderT f gctxt
97 runReaderT f gctxt
97#endif
98#endif
99+
100+runJSC_ w f = runJSC w f >> return ()