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