@@ -25,6 +25,7 @@ module Reflex.Dom.Old
26 , emptyElWith
26 , emptyElWith
27 , emptyElWith'
27 , emptyElWith'
28 , namedNodeMapGetNames
29 , namedNodeMapGetNames
29 , nodeClear
30 , nodeClear
30 , onEventName
31 , onEventName
@@ -59,6 +60,7 @@ import qualified GHCJS.DOM.Types as DOM
59import Reflex
60import Reflex
60import Reflex.Dom.Builder.Class
61import Reflex.Dom.Builder.Class
61import Reflex.Dom.Builder.Immediate
62import Reflex.Dom.Builder.Immediate
63+import Reflex.Dom.Internal.Foreign
62import Reflex.Dom.PerformEvent.Class
64import Reflex.Dom.PerformEvent.Class
63import Reflex.Dom.PostBuild.Class
65import Reflex.Dom.PostBuild.Class
64import Reflex.Dom.Widget.Basic
66import Reflex.Dom.Widget.Basic
@@ -236,3 +238,7 @@ nodeClear n = do
236 Just fc -> do
238 Just fc -> do
237 _ <- removeChild n $ Just fc
239 _ <- removeChild n $ Just fc
238 nodeClear n
240 nodeClear n
242+getQuitWidget :: MonadWidget t m => m (WidgetHost m ())
243+getQuitWidget = return $ do WebViewSingleton wv <- askWebView
244+ liftIO $ quitWebView wv