@@ -379,7 +379,8 @@ endmacro name = void (mmacro name)
380parseCodeBlock :: PandocMonad m => ManParser m Blocks
380parseCodeBlock :: PandocMonad m => ManParser m Blocks
381parseCodeBlock = try $ do
381parseCodeBlock = try $ do
382− optional (bareIP <|> mmacro "in") -- some people indent their code
383+ optional (mmacro "in") -- some people indent their code
383 toks <- (mmacro "nf" *> manyTill codeline (endmacro "fi"))
384 toks <- (mmacro "nf" *> manyTill codeline (endmacro "fi"))
384 <|> (mmacro "EX" *> manyTill codeline (endmacro "EE"))
385 <|> (mmacro "EX" *> manyTill codeline (endmacro "EE"))
385 optional (mmacro "in")
386 optional (mmacro "in")