aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/Muse.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Writers/Muse.hs')
-rw-r--r--src/Text/Pandoc/Writers/Muse.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 3a5eefc18..28eeeb337 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -256,6 +256,8 @@ blockToMuse (Table caption _ _ headers rows) = do
$$ body
$$ (if null caption then empty else " |+ " <> caption' <> " +|")
$$ blankline
+blockToMuse (Figure _attr (Caption _short long) bs) =
+ blockListToMuse (bs ++ long)
blockToMuse (Div _ bs) = blockListToMuse bs
blockToMuse Null = return empty