From 963ba931a6a4450242fc5dd19f37813f09939c4f Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 1 Oct 2018 22:09:45 -0700
Subject: Moved isArgTok to Readers.LaTeX.Parsing.

---
 src/Text/Pandoc/Readers/LaTeX/Parsing.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc/Readers/LaTeX')

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]))
 
-- 
cgit v1.2.3