@@ -102,13 +102,13 @@ parseMan = do
102102parseBlock :: PandocMonad m => ManParser m Blocks
103103parseBlock = choice [ parseList
104104 , parseDefinitionList
105− , parseBlockQuote
105+ , parseHeader
106+ , parseTable
106107 , parseTitle
108+ , parseCodeBlock
109+ , parseBlockQuote
107110 , parseNewParagraph
108111 , parsePara
109− , parseCodeBlock
110− , parseHeader
111− , parseTable
112112 , skipUnkownMacro
113113 ]
114114
@@ -470,7 +470,9 @@ parseList = try $ do
470470continuation :: PandocMonad m => ManParser m Blocks
471471continuation =
472472 mconcat <$> (mmacro "RS" *> manyTill parseBlock (endmacro "RE"))
473− <|> mconcat <$> many1 (try (bareIP *> parsePara))
473+ <|> mconcat <$> many1 ( try (bareIP *> parsePara)
474+ <|> try (bareIP *> parseCodeBlock)
475+ )
474476
475477definitionListItem :: PandocMonad m
476478 => ManParser m (Inlines, [Blocks])