git.iko.soy/typeable/pandoc
on master help sign in
Muse writer: correctly output empty headings
4409393Alexander Krotov
src/Text/Pandoc/Writers/Muse.hs+1−2
compare with master
unifiedsplit
@@ -231,8 +231,7 @@ blockToMuse (DefinitionList items) = do
231 descriptionToMuse desc = hang 4 " :: " <$> blockListToMuse desc
231 descriptionToMuse desc = hang 4 " :: " <$> blockListToMuse desc
232blockToMuse (Header level (ident,_,_) inlines) = do
232blockToMuse (Header level (ident,_,_) inlines) = do
233 opts <- asks envOptions
233 opts <- asks envOptions
234− contents <- inlineListToMuse inlines
234+ contents <- inlineListToMuse' inlines
235−
236 ids <- gets stIds
235 ids <- gets stIds
237 let autoId = uniqueIdent inlines ids
236 let autoId = uniqueIdent inlines ids
238 modify $ \st -> st{ stIds = Set.insert autoId ids }
237 modify $ \st -> st{ stIds = Set.insert autoId ids }
test/Tests/Writers/Muse.hs+1
@@ -257,6 +257,7 @@ tests = [ testGroup "block elements"
257 unlines [ "#bar"
257 unlines [ "#bar"
258 , "** Foo"
258 , "** Foo"
259 ]
259 ]
260+ , "empty heading" =: header 4 (mempty) =?> "**** <verbatim></verbatim>"
260 ]
261 ]
261 , "horizontal rule" =: horizontalRule =?> "----"
262 , "horizontal rule" =: horizontalRule =?> "----"
262 , "escape horizontal rule" =: para (text "----") =?> "<verbatim></verbatim>----"
263 , "escape horizontal rule" =: para (text "----") =?> "<verbatim></verbatim>----"