Add runJSC_
commit99047d74b7036a4bf9172af548b9c80498f7a3c9
authorHamish Mackenzie <Hamish.K.Mackenzie@googlemail.com>
dateSat 3 Aug 2013, 19:09 (13 years ago)
parente64a4e2
src/Language/Javascript/JSC/Monad.hs+3
@@ -18,6 +18,7 @@ module Language.Javascript.JSC.Monad (
1818
1919 -- * Running JSC given a DOM Window
2020 , runJSC
21+ , runJSC_
2122
2223 -- * Exception Handling
2324 , catchval
@@ -95,3 +96,5 @@ runJSC webView f = do
9596 gctxt <- webViewGetMainFrame webView >>= webFrameGetGlobalContext
9697 runReaderT f gctxt
9798#endif
99+
100+runJSC_ w f = runJSC w f >> return ()