From 65d67dcb51405ae6f4ca5995d7f1da29f81b8185 Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Mon, 23 Mar 2015 00:14:02 +0000 Subject: Fix accidently usage of list monad instance --- src/Text/Pandoc/Readers/Markdown.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text') 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') -- cgit v1.2.3