我想要包括一个svg图表生成的火焰-svg直接在html生成的火焰-html。两者都是基于火焰标记,所以我认为这是容易的。
diagram1 :: Svg
diagram1 = ...
try1 :: Html
try1 = html $
body $ do
h1 "My first diagram"
toHtml diagram1
try2 :: Html
try2 :: html $
body $ do
h1 "My first diagram"
toHtml $ renderSvg diagram1
try1和