diff options
| author | John MacFarlane <[email protected]> | 2025-05-28 15:20:55 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2025-05-28 15:20:55 -0700 |
| commit | 75db10f315ecba3c29446a0585a20e9837f71769 (patch) | |
| tree | 40b394dba27a4f1c36c73f63462ad479f1141459 | |
| parent | eee797fc5df2250a85e80efd3a2c7029ddfc0b9d (diff) | |
Fix whitespace bugs.
| -rw-r--r-- | src/Text/Pandoc/Writers/AsciiDoc.hs | 2 | ||||
| -rw-r--r-- | test/Tests/Writers/AsciiDoc.hs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs index 17bbbc000..5904f7da1 100644 --- a/src/Text/Pandoc/Writers/AsciiDoc.hs +++ b/src/Text/Pandoc/Writers/AsciiDoc.hs @@ -382,7 +382,7 @@ blockToAsciiDoc opts (Div (ident,classes,_) bs) = do let admonition_classes = ["attention","caution","danger","error","hint", "important","note","tip","warning"] let sidebar_class = "sidebar" - + contents <- case classes of (l:_) | l `elem` admonition_classes || T.toLower l == sidebar_class -> do diff --git a/test/Tests/Writers/AsciiDoc.hs b/test/Tests/Writers/AsciiDoc.hs index 0fb2aa861..e89e0a0e0 100644 --- a/test/Tests/Writers/AsciiDoc.hs +++ b/test/Tests/Writers/AsciiDoc.hs @@ -63,8 +63,8 @@ tests = [ testGroup "emphasis" , "----" ] , testAsciidoc "sidebar block" $ - divWith ("sidebar_id", ["sidebar"], []) - (divWith ("", ["title"], []) + divWith ("sidebar_id", ["sidebar"], []) + (divWith ("", ["title"], []) (plain "Sidebar Title") <> para "Sidebar paragraph" ) =?> unlines |