diff options
author | Henry de Valence <hdevalence@hdevalence.ca> | 2013-12-19 20:19:24 -0500 |
---|---|---|
committer | Henry de Valence <hdevalence@hdevalence.ca> | 2013-12-19 20:19:24 -0500 |
commit | 0c5e7cf8cb4fe6959d7e89880e8925afe6625414 (patch) | |
tree | 701879f6278cab45e0a56fcef0074e0523fb6a2f /src/Text/Pandoc/Readers/LaTeX.hs | |
parent | 1ed2c467c9442934c060257f6e191a5a3d6c1e38 (diff) | |
download | pandoc-0c5e7cf8cb4fe6959d7e89880e8925afe6625414.tar.gz |
HLint: use `elem` and `notElem`
Replaces long conditional chains with calls to `elem` and `notElem`.
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 0020a8f26..51271edc5 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -874,9 +874,8 @@ verbatimEnv = do (_,r) <- withRaw $ do controlSeq "begin" name <- braced - guard $ name == "verbatim" || name == "Verbatim" || - name == "lstlisting" || name == "minted" || - name == "alltt" + guard $ name `elem` ["verbatim", "Verbatim", "lstlisting", + "minted", "alltt"] verbEnv name rest <- getInput return (r,rest) |