Apply the styles to the markdown wrapper node, not the children

This commit is contained in:
Micah Hahn 2023-05-01 14:38:39 -05:00
parent 95a0dd0e46
commit 8e7f053f07

View File

@ -278,13 +278,13 @@ renderContent content_ styles =
tag = tag =
case markdown of case markdown of
Bold -> Bold ->
strong [] strong [ css styles ]
Italic -> Italic ->
em [] em [ css styles ]
in in
contents contents
|> List.map (\c -> renderContent c styles) |> List.map (\c -> renderContent c [])
|> tag |> tag