Testing the patch function in purescript-virtual-dom

Main.purs

module Main where

import Prelude
import Data.DOM.Simple.Document
import Data.DOM.Simple.Element
import Data.DOM.Simple.Window
import qualified VirtualDOM as VD
import qualified VirtualDOM.VTree as VT

foreign import isoTS :: DOM.Node -> Data.DOM.Simple.Types.HTMLElement
foreign import isoST :: Data.DOM.Simple.Types.HTMLElement -> DOM.Node

main = do
  let x = VT.vtext "Hello!"
  let node = VD.createElement x
  doc <- document globalWindow
  bod <- body doc
  appendChild bod (isoTS node)
  let y = VT.vtext "Goodbye!"
  let d = VD.diff x y
  VD.patch d node