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

oops

Browse source
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]