diff options
| author | mb21 <mb21@users.noreply.github.com> | 2017-10-22 12:03:05 +0200 |
|---|---|---|
| committer | mb21 <mb21@users.noreply.github.com> | 2017-10-22 20:33:30 +0200 |
| commit | 05adbd6f19631b8e04c04784565b7bb7f62b2c8c (patch) | |
| tree | 281c62e956f994d64c7c0e20b4308ed539a2642a /src/Text/Pandoc | |
| parent | 4aa84f40060884311324d3dd0a81ec22fdd9329f (diff) | |
| download | pandoc-05adbd6f19631b8e04c04784565b7bb7f62b2c8c.tar.gz | |
LaTeX Reader: use opt function consistently
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 5ac114b19..cb7f3f50d 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -1320,7 +1320,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList $ , ("i", lit "i") , ("\\", linebreak <$ (do inTableCell <- sInTableCell <$> getState guard $ not inTableCell - optional (bracketed inline) + optional opt spaces)) , (",", lit "\8198") , ("@", pure mempty) @@ -1750,7 +1750,7 @@ include = do (Tok _ (CtrlSeq name) _) <- controlSeq "include" <|> controlSeq "input" <|> controlSeq "subfile" <|> controlSeq "usepackage" - skipMany $ bracketed inline -- skip options + skipMany opt fs <- (map (T.unpack . removeDoubleQuotes . T.strip) . T.splitOn "," . untokenize) <$> braced let fs' = if name == "usepackage" @@ -2355,7 +2355,7 @@ hline = try $ do controlSeq "endhead" <|> controlSeq "endfirsthead" spaces - optional $ bracketed inline + optional opt return () lbreak :: PandocMonad m => LP m Tok |