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))
|
|> 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
|
||||||
| _ -> ""
|
| _ -> ""
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue