From ba19dff8af7a103ed67d390d219727821d8ac4be Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 5 Jul 2010 20:41:42 -0700 Subject: Minor reformatting. --- src/Text/Pandoc/Parsing.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc/Parsing.hs') diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index b563b4eb9..386dafd46 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -440,13 +440,15 @@ gridTableHeader headless = try $ do rawContent <- if headless then return $ repeat "" else many1 - (notFollowedBy (gridTableSep '=') >> char '|' >> many1Till anyChar newline) + (notFollowedBy (gridTableSep '=') >> char '|' >> + many1Till anyChar newline) if headless then return () else gridTableSep '=' >> return () let lines' = map snd dashes let indices = scanl (+) 0 lines' - let aligns = replicate (length lines') AlignDefault -- RST does not have a notion of alignments + let aligns = replicate (length lines') AlignDefault + -- RST does not have a notion of alignments let rawHeads = if headless then replicate (length dashes) "" else map (intercalate " ") $ transpose -- cgit v1.2.3