ffix stupid indentstion error

This commit is contained in:
Linus Björnstam 2026-03-31 16:10:44 +02:00
parent 8402ff3a3c
commit ec2173632c

View file

@ -12,9 +12,13 @@ module HtmlPrinter =
|> List.map (fun k -> sprintf "%s=\"%s\"" (fst k) (snd k))
|> String.concat " "
let rec renderInline =
let renderAll l =
l
|> List.map renderInline
|> String.concat ""
function
| Text t -> WebUtility.HtmlEncode t
| Strong(t) -> sprintf "<strong>%s</strong>" (renderInline t)
| Strong(t) -> sprintf "<strong>%s</strong>" (renderAll t)
| RawHtml h ->
h
| _ -> ""