diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-07-05 20:41:42 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-07-05 20:41:42 -0700 |
| commit | ba19dff8af7a103ed67d390d219727821d8ac4be (patch) | |
| tree | a9707812600b2133e2037c820fe5e5636f5e8ec9 /src/Text | |
| parent | 869946114e0b2ca9fa877ad32af6713f37fbd69f (diff) | |
| download | pandoc-ba19dff8af7a103ed67d390d219727821d8ac4be.tar.gz | |
Minor reformatting.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 6 |
1 files changed, 4 insertions, 2 deletions
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 |