From ba19dff8af7a103ed67d390d219727821d8ac4be Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
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