diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-09 04:09:18 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-09 04:10:05 +0300 |
| commit | 44093930a8048331389534cc2b6f81400bb93c72 (patch) | |
| tree | 08a0343c4bcd80c64f6b26889e6b9276a583264d /src | |
| parent | c82ee315de3df059946c1623005c504c0cb5aa16 (diff) | |
| download | pandoc-44093930a8048331389534cc2b6f81400bb93c72.tar.gz | |
Muse writer: correctly output empty headings
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index e9cf6d433..2ea7f04e2 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -231,8 +231,7 @@ blockToMuse (DefinitionList items) = do descriptionToMuse desc = hang 4 " :: " <$> blockListToMuse desc blockToMuse (Header level (ident,_,_) inlines) = do opts <- asks envOptions - contents <- inlineListToMuse inlines - + contents <- inlineListToMuse' inlines ids <- gets stIds let autoId = uniqueIdent inlines ids modify $ \st -> st{ stIds = Set.insert autoId ids } |