diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index 5d75bc72c..6916e56db 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -650,9 +650,8 @@ bareIP = msatisfy isBareIP where parseCodeBlock :: PandocMonad m => ManParser m Blocks parseCodeBlock = try $ do optional bareIP -- some people indent their code - mmacro "nf" - toks <- many (mline <|> memptyLine) - mmacro "fi" + toks <- (mmacro "nf" *> many (mline <|> memptyLine) <* mmacro "fi") + <|> (mmacro "EX" *> many (mline <|> memptyLine) <* mmacro "EE") return $ codeBlock (intercalate "\n" . catMaybes $ extractText <$> toks) |