diff options
| author | Andrew Dunning <adunning@users.noreply.github.com> | 2017-09-08 07:06:50 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-09-08 07:06:50 +0100 |
| commit | 51bb7453e41e5e7e28a60cb22cb4f4d082b7fbdf (patch) | |
| tree | bbcd5f299fa513065e3bcb3f274f1b895a899301 /src/Text/Pandoc/Parsing.hs | |
| parent | 3654c4373a2f4db8d4ab771937ad318a6921ac37 (diff) | |
| parent | 732005456e2b28150943a5a4e11bca6e1566f309 (diff) | |
| download | pandoc-51bb7453e41e5e7e28a60cb22cb4f4d082b7fbdf.tar.gz | |
Merge branch 'master' into patch-1
Diffstat (limited to 'src/Text/Pandoc/Parsing.hs')
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 9ed18d4e0..2543f11f0 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -838,7 +838,7 @@ blankLineBlockLine = try (char '|' >> blankline) lineBlockLines :: Monad m => ParserT [Char] st m [String] lineBlockLines = try $ do lines' <- many1 (lineBlockLine <|> ((:[]) <$> blankLineBlockLine)) - skipMany1 $ blankline <|> blankLineBlockLine + skipMany $ blankline return lines' -- | Parse a table using 'headerParser', 'rowParser', |