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)) |> List.map (fun k -> sprintf "%s=\"%s\"" (fst k) (snd k))
|> String.concat " " |> String.concat " "
let rec renderInline = let rec renderInline =
let renderAll l =
l
|> List.map renderInline
|> String.concat ""
function function
| Text t -> WebUtility.HtmlEncode t | Text t -> WebUtility.HtmlEncode t
| Strong(t) -> sprintf "<strong>%s</strong>" (renderInline t) | Strong(t) -> sprintf "<strong>%s</strong>" (renderAll t)
| RawHtml h -> | RawHtml h ->
h h
| _ -> "" | _ -> ""