I'm using svg-builder to create some simple drawings eg
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" ]
Now I want to embed such drawings into a normal Html page, eg constructed with
blaze-html.
The difficulty is, that blaze-html
uses data types like Html
and Builder
, however
svg-builder
uses a data type called Element
.
How can I use svg-builder
Element
s in blaze-html
?
Note : There is this similar so question
but it uses blaze-svg
and I would like to use svg-builder
.
Use renderText
from svg-builder
, pass the resulting text into preEscapedToHtml
from blaze-html
. Note that you do not want to include the doctype here.