rhi
/
lang
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

oops

This commit is contained in:
Rhiannon Morris 2023-05-04 02:35:46 +02:00
parent b5aa0188c2
commit f6d10672d2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
langfilter/Main.hs
View File

@ -39,7 +39,7 @@ makeBlocks :: Block -> [Block]
makeBlocks (Div ("", clss, []) blks) makeBlocks (Div ("", clss, []) blks)
| Just (cls, rest) <- pluck1 ["figure", "aside"] clss = | Just (cls, rest) <- pluck1 ["figure", "aside"] clss =
let html = RawBlock $ Format "html" let html = RawBlock $ Format "html"
open = html $ "<" <> cls <> "class='" <> Text.unwords rest <> "'>" open = html $ "<" <> cls <> " class='" <> Text.unwords rest <> "'>"
close = html $ "</" <> cls <> ">" close = html $ "</" <> cls <> ">"
in in
[open] ++ blks ++ [close] [open] ++ blks ++ [close]