Fix spacing issue.

This commit is contained in:
John MacFarlane
2025-12-01 09:45:44 +01:00
parent d3a013e580
commit c9a741b4bd
+1 -1
View File
@@ -193,7 +193,7 @@ addBlockTitle tit' bs =
B.singleton $ B.Div attr (B.Div ("",["title"],[]) [B.Para tit] : bs')
[B.Div attr bs'] -> -- put title Div inside
B.singleton $ B.Div attr (B.Div ("",["title"],[]) [B.Para tit] : bs')
_ -> B.divWith B.nullAttr (B.divWith ("",["title"],[]) (B.para tit') <> bs)
_ -> B.divWith B.nullAttr (B.divWith ("",["title"],[]) (B.para tit') <> bs)
doBlock :: PandocMonad m => A.Block -> m B.Blocks
doBlock (A.Block attr@(A.Attr ps kvs) mbtitle bt) = do