aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAlbert Krewinkel <albert@zeitkraut.de>2020-09-08 10:33:49 +0200
committerAlbert Krewinkel <albert@zeitkraut.de>2020-09-08 10:33:49 +0200
commit9cad5499c45022b9893156bb5e0468cabefca974 (patch)
tree5ca07d14fb84fecc1641a42588e7549234867e7e /src
parent10c6c411f9bd582ce9bafe159728f322a54395cd (diff)
downloadpandoc-9cad5499c45022b9893156bb5e0468cabefca974.tar.gz
Reader.LaTeX.hs: remove trailing whitespace
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs14
1 files changed, 7 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 6b25e4028..de391e54a 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -2168,7 +2168,7 @@ parseTableRow envname prefsufs = do
cells <- mapM (\ts -> setInput ts >> parseTableCell) rawcells
setInput oldInput
spaces
- -- Because of table normalization performed by Text.Pandoc.Builder.table,
+ -- Because of table normalization performed by Text.Pandoc.Builder.table,
-- we need to remove empty cells
return $ Row nullAttr $ filter (\c -> c /= emptyCell) cells
@@ -2176,9 +2176,9 @@ parseTableCell :: PandocMonad m => LP m Cell
parseTableCell = do
spaces
updateState $ \st -> st{ sInTableCell = True }
- cell' <- ( multicolumnCell
- <|> multirowCell
- <|> parseSimpleCell
+ cell' <- ( multicolumnCell
+ <|> multirowCell
+ <|> parseSimpleCell
<|> parseEmptyCell
)
updateState $ \st -> st{ sInTableCell = False }
@@ -2186,7 +2186,7 @@ parseTableCell = do
return cell'
where
-- The parsing of empty cells is important in LaTeX, especially when dealing
- -- with multirow/multicolumn. See #6603.
+ -- with multirow/multicolumn. See #6603.
parseEmptyCell = optional spaces >> return emptyCell <* optional spaces
cellAlignment :: PandocMonad m => LP m Alignment
@@ -2213,7 +2213,7 @@ multirowCell = controlSeq "multirow" >> do
-- However, everything except `nrows` and `text` make
-- sense in the context of the Pandoc AST
_ <- optional $ symbol '[' *> cellAlignment <* symbol ']' -- vertical position
- nrows <- fmap (fromMaybe 1 . safeRead . untokenize) braced
+ nrows <- fmap (fromMaybe 1 . safeRead . untokenize) braced
_ <- optional $ symbol '[' *> manyTill anyTok (symbol ']') -- bigstrut-related
_ <- symbol '{' *> manyTill anyTok (symbol '}') -- Cell width
_ <- optional $ symbol '[' *> manyTill anyTok (symbol ']') -- Length used for fine-tuning
@@ -2228,7 +2228,7 @@ multicolumnCell = controlSeq "multicolumn" >> do
let singleCell = do
content <- plainify <$> blocks
return $ cell alignment (RowSpan 1) (ColSpan span') content
-
+
-- Two possible contents: either a \multirow cell, or content.
-- E.g. \multicol{1}{c}{\multirow{2}{1em}{content}}
-- Note that a \multirow cell can be nested in a \multicolumn,