diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-28 11:50:09 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-28 11:50:09 -0700 |
| commit | 26a75832090ef17f56c12cc2c74bc7e13a7e88b1 (patch) | |
| tree | a4306d85b97f0c4c364f0003fddc0f18b004fa38 /src/Text/Pandoc/Readers | |
| parent | 07647f05f023206673803119bab805939b17c3d1 (diff) | |
| download | pandoc-26a75832090ef17f56c12cc2c74bc7e13a7e88b1.tar.gz | |
Man reader: allow both .in and .IP to indent code block.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index e06ba2353..8773fb65c 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -379,7 +379,8 @@ endmacro name = void (mmacro name) parseCodeBlock :: PandocMonad m => ManParser m Blocks parseCodeBlock = try $ do - optional (bareIP <|> mmacro "in") -- some people indent their code + optional bareIP + optional (mmacro "in") -- some people indent their code toks <- (mmacro "nf" *> manyTill codeline (endmacro "fi")) <|> (mmacro "EX" *> manyTill codeline (endmacro "EE")) optional (mmacro "in") |