Just a silly experiment with `purescript-dom` to create a button and add it to the document body.

Add button.purs

import Prelude
import Data.Maybe
import Data.Nullable
import DOM.HTML as h
import DOM.HTML.Document as hd
import DOM.HTML.Types as ht
import DOM.HTML.Window as w
import DOM.Node.Document as nd
import DOM.Node.Node as n
import DOM.Node.Types as nt
import Partial.Unsafe

addNewButton = do
                 globalWin <- h.window
                 htmlDoc <- w.document globalWin
                 let doc = ht.htmlDocumentToDocument htmlDoc
                 newButton <- nd.createElement "BUTTON" doc
                 let newButtonNode = nt.elementToNode newButton
                     docNode       = nt.documentToNode doc
                 nullableBody <- hd.body htmlDoc
                 let actualBody = unsafePartial $ fromJust $ toMaybe nullableBody
                     bodyNode   = nt.elementToNode $ ht.htmlElementToElement actualBody
                 newNode <- n.appendChild newButtonNode bodyNode
                 pure unit

Thanks for this! I was going crazy trying to figure out how to unwrap the body from the Nullable type!

I'm curious; do you know if there's anyway to do this without using unsafe partials?