Muse writer: correctly output empty headings
commit44093930a8048331389534cc2b6f81400bb93c72
authorAlexander Krotov <ilabdsf@gmail.com>
dateMon 9 Apr 2018, 04:09 (9 years ago)
parentc82ee31
src/Text/Pandoc/Writers/Muse.hs+1−2
@@ -231,8 +231,7 @@ blockToMuse (DefinitionList items) = do
231231 descriptionToMuse desc = hang 4 " :: " <$> blockListToMuse desc
232232blockToMuse (Header level (ident,_,_) inlines) = do
233233 opts <- asks envOptions
234− contents <- inlineListToMuse inlines
235−
234+ contents <- inlineListToMuse' inlines
236235 ids <- gets stIds
237236 let autoId = uniqueIdent inlines ids
238237 modify $ \st -> st{ stIds = Set.insert autoId ids }
test/Tests/Writers/Muse.hs+1
@@ -257,6 +257,7 @@ tests = [ testGroup "block elements"
257257 unlines [ "#bar"
258258 , "** Foo"
259259 ]
260+ , "empty heading" =: header 4 (mempty) =?> "**** <verbatim></verbatim>"
260261 ]
261262 , "horizontal rule" =: horizontalRule =?> "----"
262263 , "escape horizontal rule" =: para (text "----") =?> "<verbatim></verbatim>----"