@@ -241,8 +241,9 @@ nodeClear n = do
241 nodeClear n
241 nodeClear n
243getQuitWidget :: MonadWidget t m => m (WidgetHost m ())
243getQuitWidget :: MonadWidget t m => m (WidgetHost m ())
244+getQuitWidget = return $ do
244−getQuitWidget = return $ do WebViewSingleton wv <- askWebView
245+ WebViewSingleton wv <- askWebView
245− liftIO $ quitWebView wv
246+ liftIO $ quitWebView wv
247elStopPropagationNS :: forall t m en a. (MonadWidget t m, DOM.IsEvent (EventType en)) => Maybe Text -> Text -> EventName en -> m a -> m a
248elStopPropagationNS :: forall t m en a. (MonadWidget t m, DOM.IsEvent (EventType en)) => Maybe Text -> Text -> EventName en -> m a -> m a
248elStopPropagationNS ns elementTag en child = do
249elStopPropagationNS ns elementTag en child = do