haskell - 快速生成 Html 列表

Question

我想通过构建一些 HTML 并将其绑定(bind)到标签以在 Heist 模板中使用来集成 Snap 的模板和 Blaze HTML 构建器。这是我尝试过的。

numbers :: Int -> Splice AppHandler
numbers n = return $ [TextNode $ T.concat.toChunks.renderHtml $ do
                    p "A list of natural numbers"
                    ul $ forM_ [1 .. n] (li .toHtml)]

这不能按预期工作，因为 snap 将 HTML 字符串直接呈现到生成的页面。如何快速渲染 blaze 生成的 HTML？

Answer 1

如果你想坚持使用 Heist 接头，函数 renderHtmlNodes来自 Text.Blaze.Renderer.XmlHtml在这种情况下，xmlhtml 包中的模块应该会有很大帮助。

文档:http://hackage.haskell.org/packages/archive/xmlhtml/0.1.5.2/doc/html/Text-Blaze-Renderer-XmlHtml.html

我不完全理解您的示例，但这就是我将如何修改它以纳入我的建议:

numbers :: Int -> Splice AppHandler
numbers n = return $ renderHtmlNodes $ do
                    p "A list of natural numbers"
                    ul $ forM_ [1 .. n] (li .toHtml)