aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/LaTeX
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX/Parsing.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX/Parsing.hs b/src/Text/Pandoc/Readers/LaTeX/Parsing.hs
index 81d83dab2..9256217fe 100644
--- a/src/Text/Pandoc/Readers/LaTeX/Parsing.hs
+++ b/src/Text/Pandoc/Readers/LaTeX/Parsing.hs
@@ -52,8 +52,9 @@ module Text.Pandoc.Readers.LaTeX.Parsing
, setpos
, anyControlSeq
, anySymbol
- , isWordTok
, isNewlineTok
+ , isWordTok
+ , isArgTok
, spaces
, spaces1
, tokTypeIn
@@ -476,6 +477,10 @@ isWordTok :: Tok -> Bool
isWordTok (Tok _ Word _) = True
isWordTok _ = False
+isArgTok :: Tok -> Bool
+isArgTok (Tok _ (Arg _) _) = True
+isArgTok _ = False
+
spaces :: PandocMonad m => LP m ()
spaces = skipMany (satisfyTok (tokTypeIn [Comment, Spaces, Newline]))