diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2015-03-23 00:14:02 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2015-03-23 00:14:02 +0000 |
| commit | 65d67dcb51405ae6f4ca5995d7f1da29f81b8185 (patch) | |
| tree | 9eaaefd6645f589f3a2b643f333141b989003fd4 /src/Text/Pandoc/Readers | |
| parent | 84d6703ea7e9996a3745ccaad96ffe9e7464bf9c (diff) | |
| download | pandoc-65d67dcb51405ae6f4ca5995d7f1da29f81b8185.tar.gz | |
Fix accidently usage of list monad instance
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index f01ecc445..638c8c9cf 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1292,7 +1292,7 @@ pipeBreak = try $ do pipeTable :: MarkdownParser ([Alignment], [Double], [Blocks], [[Blocks]]) pipeTable = try $ do (heads,aligns) <- (,) <$> pipeTableRow <*> pipeBreak - lines' <- sequence <$> many1 pipeTableRow + lines' <- many1 pipeTableRow let widths = replicate (length aligns) 0.0 return (aligns, widths, heads, lines') |