diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 2 | ||||
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index fbebe5c20..23aa98866 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -259,7 +259,7 @@ blockToMuse (Table caption _ _ headers rows) = do $$ body $$ (if null caption then empty else " |+ " <> caption' <> " +|") $$ blankline -blockToMuse (Div _ bs) = blockListToMuse bs +blockToMuse (Div _ bs) = flatBlockListToMuse bs blockToMuse Null = return empty -- | Return Muse representation of notes. diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index 158f80f67..ee4c76587 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -282,7 +282,9 @@ tests = [ testGroup "block elements" , " |+ Table 1 +|" ] ] - -- Div is trivial + , "div with bullet list" =: + divWith nullAttr (bulletList [para $ text "foo"]) =?> + unlines [ " - foo" ] -- Making sure bullets are indented -- Null is trivial ] , testGroup "inline elements" |