ffix stupid indentstion error
This commit is contained in:
parent
8402ff3a3c
commit
ec2173632c
1 changed files with 5 additions and 1 deletions
|
|
@ -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
|
||||
| _ -> ""
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue