haskell - Haskell Blaze HTML

Question

一直在编写一个使用 JSON 数据然后使用 Happstack 显示它的应用程序。

   helloBlaze :: ServerPart Response
   helloBlaze =
   ok $ toResponse $
   appTemplate "Hello, Blaze!"
            [H.meta ! A.name "keywords"
                    ! A.content "happstack, blaze, html"
            ]
            (do H.toHtml $ makeList $ getResponse)

   makeList xs = "<ul>" ++ (Items xs) ++ "</ul>"

   Items [] = ""
   Items (x:xs) = "<li>" ++ x ++ "</li>" ++ (Items xs)

问题是当我运行 Happstack 时，生成的响应是结果，但仍然显示 html 标签。任何建议将不胜感激。

Answer 1

我不太了解 Blaze，但这不是正确的方法，更像是

makeList xs = ul (mapM_ li xs)

这就是它的工作原理，不是吗？

（另外，不要Items用作函数名。它需要以小写字母开头。）