haskell - 使用 Hamlet 生成递归 Html

Question

我想生成一个评论树。

<ul>
   <li> First comment
      <ul> 
        <li> reply to first comment
        <li> another reply to first comment
      </ul>
   </li>
 </ul>

我有一个Tree (Entity Comment)结构。我希望拥有 hamlet 的所有好处（#{commentContent comment}将受到 XSS 的保护）。

如何使用 Hamlet 实现递归 Html 渲染？

Answer 1

您可能无法在普通的 hamlet 中执行此操作，但您可以创建一个辅助函数 commentTree，您可以使用^{commentTree comments}. 该函数将返回 Hamlet 并且可以自己[hamlet|<li>^{commentTree subcomment}|]用于递归和[hamlet|<u>#{commentContent comment}|]安全插值。

（受此答案的启发。）