@@ -510,7 +510,7 @@ type ListBuilder = [Blocks] -> Blocks
510510
511511parseList :: PandocMonad m => ManParser m Blocks
512512parseList = try $ do
513− xx <- many1 paras
513+ xx <- many1 items
514514 let bls = map snd xx
515515 let bldr = fst $ head xx
516516 return $ bldr bls
@@ -528,20 +528,20 @@ parseList = try $ do
528528 Left _ -> bulletList
529529 listKind _ = bulletList
530530
531− paras :: PandocMonad m => ManParser m (ListBuilder, Blocks)
532− paras = do
531+ items :: PandocMonad m => ManParser m (ListBuilder, Blocks)
532+ items = do
533533 (MMacro _ args) <- mmacro "IP"
534534 let lbuilder = listKind args
535535 inls <- parseInlines
536536 continuations <- mconcat <$> many continuation
537537 return $ (lbuilder, para inls <> continuations)
538538
539− continuation :: PandocMonad m => ManParser m Blocks
540− continuation = do
541− mmacro "RS"
542− bs <- mconcat <$> many (notFollowedBy (mmacro "RE") >> parseBlock)
543− mmacro "RE"
544− return bs
539+continuation :: PandocMonad m => ManParser m Blocks
540+continuation = do
541+ mmacro "RS"
542+ bs <- mconcat <$> many (notFollowedBy (mmacro "RE") >> parseBlock)
543+ mmacro "RE"
544+ return bs
545545
546546-- In case of weird man file it will be parsed succesfully
547547parseSkipMacro :: PandocMonad m => ManParser m Blocks