使用 PureScript 从 div 中清除所有子元素

如何解决使用 PureScript 从 div 中清除所有子元素

有很多方法可以empty out a element of a DOM node with JavaScript。我想用 PureScript 做到这一点（目的是用卤素小部件替换静态内容）。在 purescript-web-html 和 purescript-web-dom 的所有函数中，似乎应该有一个明显的方法来解决这个问题，但是描述一个元素的大量相互矛盾的方法正在打败我。

在调用 runUI 之前，有没有一两行简单的方法来执行看起来很明显的操作？

解决方法

我不确定这是否是最好的方法，因为看起来应该有一个很好的函数方式来 map 超过 HTMLCollection，但至少它有效：

import Data.Maybe (Maybe(..))
import Effect (Effect)
import Halogen.Aff as HA
import Halogen.VDom.Driver (runUI)
import Web.DOM.ParentNode
import Web.DOM.ChildNode (remove)
import Web.HTML.HTMLElement (HTMLElement,toParentNode)
import Web.DOM.Element (toChildNode)
import Effect.Class

selector :: QuerySelector
selector = QuerySelector "#halogen"

main :: Effect Unit
main = HA.runHalogenAff do
  body <- HA.awaitBody
  elem <- HA.selectElement selector
  case elem of
    Nothing -> runUI component unit body
    Just e -> do
       liftEffect $ clearChildren e
       runUI component unit e

clearChildren :: HTMLElement -> Effect Unit
clearChildren e = clearNextChild (toParentNode e)
  where
    clearNextChild :: ParentNode -> Effect Unit
    clearNextChild n = do
      last <- lastElementChild n
      case (last) of
        Nothing -> pure unit
        Just elem -> do 
          remove $ toChildNode elem
          clearNextChild n