Attaching reflex to a particular node

Main.hs

{-# LANGUAGE ConstraintKinds     #-}
{-# LANGUAGE FlexibleContexts    #-}
{-# LANGUAGE RecursiveDo         #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeFamilies        #-}

------------------------------------------------------------------------------
import           Control.Concurrent
import           Control.Monad
import           Control.Monad.Trans
import           Control.Monad.Trans.Reader
import           GHCJS.DOM
import           GHCJS.DOM.Document
import           GHCJS.DOM.Element
import           GHCJS.DOM.EventM (preventDefault, eventTarget)
import           GHCJS.DOM.HTMLDocument
import           GHCJS.DOM.Types hiding (Event, Text)
import           Reflex.Dom hiding (getKeyEvent)
------------------------------------------------------------------------------


------------------------------------------------------------------------------
waitUntilJust :: IO (Maybe a) -> IO a
waitUntilJust a = do
    mx <- a
    case mx of
      Just x -> return x
      Nothing -> do
        threadDelay 10000
        waitUntilJust a


------------------------------------------------------------------------------
main :: IO ()
main = runWebGUI $ \webView -> do
    doc <- waitUntilJust $ liftM (fmap castToHTMLDocument) $
      webViewGetDomDocument webView
    root <- waitUntilJust $ liftM (fmap castToHTMLElement) $
      documentGetElementById doc "app-tag-id"
    attachWidget root webView $ do
      yourApp