diff options
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index d248a0714..02cdd83d2 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -216,8 +216,8 @@ escapeLexer = do escSingle = do c <- anyChar case c of - '"' -> mempty <$ manyTill anyChar newline -- line comment - '#' -> mempty <$ (manyTill anyChar newline >> optional newline) + '"' -> mempty <$ skipMany (satisfy (/='\n')) -- line comment + '#' -> mempty <$ manyTill anyChar newline '%' -> return mempty '{' -> return mempty '}' -> return mempty @@ -478,7 +478,7 @@ strToInlines (s, fonts) = inner $ S.toList fonts where inner (Regular:fs) = inner fs parsePara :: PandocMonad m => ManParser m Blocks -parsePara = para <$> parseInlines +parsePara = para . trimInlines <$> parseInlines parseInlines :: PandocMonad m => ManParser m Inlines parseInlines = do |