DOM Manipulation with ghcjs

Hello.hs

module Main (main) where

import Control.Applicative ((<$>))
import GHCJS.DOM (runWebGUI, webViewGetDomDocument)
import GHCJS.DOM.Document (documentGetBody, documentCreateElement)
import GHCJS.DOM.Types (castToHTMLDivElement)
import GHCJS.DOM.Node (nodeAppendChild)
import GHCJS.DOM.HTMLElement (htmlElementSetInnerText)

main :: IO ()
main = do
    runWebGUI $ \webView -> do
        Just doc <- webViewGetDomDocument webView
        Just body <- documentGetBody doc
        Just div <- fmap castToHTMLDivElement <$> documentCreateElement doc "div"
        htmlElementSetInnerText div "Hello, world!"
        nodeAppendChild body $ Just div
        return ()