diff options
author | John MacFarlane <jgm@berkeley.edu> | 2021-02-28 09:12:09 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2021-02-28 09:12:09 -0800 |
commit | 2faa57e8e96d9905676e30f62d34c06b074acf76 (patch) | |
tree | 2014c431088611d0a7a0880468ae14fbe10444bc /src/Text/Pandoc/Readers/LaTeX/Parsing.hs | |
parent | 08231f5cdd16e31d38d9d6bf59bc5ca12638b438 (diff) | |
download | pandoc-2faa57e8e96d9905676e30f62d34c06b074acf76.tar.gz |
Factor out T.P.Readers.LaTeX.Citation.
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX/Parsing.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/LaTeX/Parsing.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX/Parsing.hs b/src/Text/Pandoc/Readers/LaTeX/Parsing.hs index 4a9fa03ad..a5a39d3c9 100644 --- a/src/Text/Pandoc/Readers/LaTeX/Parsing.hs +++ b/src/Text/Pandoc/Readers/LaTeX/Parsing.hs @@ -85,6 +85,7 @@ module Text.Pandoc.Readers.LaTeX.Parsing , setCaption , resetCaption , env + , addMeta ) where import Control.Applicative (many, (<|>)) @@ -947,3 +948,7 @@ tokWith inlineParser = try $ spaces >> where singleChar' = do Tok _ _ t <- singleChar return $ str t + +addMeta :: PandocMonad m => ToMetaValue a => Text -> a -> LP m () +addMeta field val = updateState $ \st -> + st{ sMeta = addMetaField field val $ sMeta st } |