如何在blaze html中使用元素？

Question

我正在使用svg-生成器创建一些简单的绘图

import Graphics.Svg

main :: IO ()
main = do
  print $ svg contents

svg :: Element -> Element
svg content =
    doctype
    <> with (svg11_ content) [Version_ <<- "1.1", Width_ <<- "300", Height_ <<- "200"]

contents :: Element
contents =
    circle_ [Cx_ <<- "50", Cy_ <<- "50", R_ <<-"40", Stroke_ <<- "green", Stroke_width_ <<- "4", Fill_ <<- "yellow" ]

现在我想把这些图纸嵌入到一个普通的Html页面中(如用烈火-html构建)。困难在于，blaze-html使用Html和Builder等数据类型，而svg-builder使用名为Element的数据类型。如何在svg-builder Element中使用blaze-html

注意:有这个类似的问题，但是它使用blaze-svg，我想使用svg-builder。

Answer 1

使用来自svg-builder的svg-builder，将结果文本从blaze-html传递到preEscapedToHtml。请注意，您不希望在这里包含doctype。