git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: fix list item continuation parsing (#3747)
4929d02Alexander Krotov
src/Text/Pandoc/Readers/Muse.hs+2−2
compare with master
unifiedsplit
@@ -295,9 +295,9 @@ withListContext p = do
295
295
296listContinuation :: PandocMonad m => Int -> MuseParser m String
296listContinuation :: PandocMonad m => Int -> MuseParser m String
297listContinuation markerLength = try $ do
297listContinuation markerLength = try $ do
298− result <- many1 $ listLine markerLength
299 blanks <- many1 blankline
298 blanks <- many1 blankline
299+ result <- many1 $ listLine markerLength
300− return $ concat result ++ blanks
300+ return $ blanks ++ concat result
301
301
302listStart :: PandocMonad m => MuseParser m Int -> MuseParser m Int
302listStart :: PandocMonad m => MuseParser m Int -> MuseParser m Int
303listStart marker = try $ do
303listStart marker = try $ do
test/Tests/Readers/Muse.hs+13
@@ -260,5 +260,18 @@ tests =
260 ]
260 ]
261 ]
261 ]
262 ]
262 ]
263+ , "List continuation" =:
264+ T.unlines
265+ [ " - a"
266+ , ""
267+ , " b"
268+ , ""
269+ , " c"
270+ ] =?>
271+ bulletList [ mconcat [ para "a"
272+ , para "b"
273+ , para "c"
274+ ]
275+ ]
263 ]
276 ]
264 ]
277 ]