aboutsummaryrefslogtreecommitdiff
path: root/pandoc.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2013-12-19 20:20:06 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2013-12-19 20:20:06 -0800
commit3c4aa01664486701a531b0db29dd2bb5124965ee (patch)
tree29604431cacebc592b57bfb5de02213ecea56b2d /pandoc.hs
parent8053ba2123699fd89900b2a9c5656a72d3a2fe85 (diff)
parent3d70059a4896c66cab59832a3ed9eb8334b84a2f (diff)
downloadpandoc-3c4aa01664486701a531b0db29dd2bb5124965ee.tar.gz
Merge pull request #1099 from hdevalence/master
Minor HLint-suggested changes
Diffstat (limited to 'pandoc.hs')
-rw-r--r--pandoc.hs8
1 files changed, 3 insertions, 5 deletions
diff --git a/pandoc.hs b/pandoc.hs
index cada3347d..574c89771 100644
--- a/pandoc.hs
+++ b/pandoc.hs
@@ -656,7 +656,7 @@ options =
(ReqArg
(\arg opt -> do
let b = takeBaseName arg
- if (b == "pdflatex" || b == "lualatex" || b == "xelatex")
+ if b `elem` ["pdflatex", "lualatex", "xelatex"]
then return opt { optLaTeXEngine = arg }
else err 45 "latex-engine must be pdflatex, lualatex, or xelatex.")
"PROGRAM")
@@ -1034,12 +1034,10 @@ main = do
variables' <- case mathMethod of
LaTeXMathML Nothing -> do
- s <- readDataFileUTF8 datadir
- ("LaTeXMathML.js")
+ s <- readDataFileUTF8 datadir "LaTeXMathML.js"
return $ ("mathml-script", s) : variables
MathML Nothing -> do
- s <- readDataFileUTF8 datadir
- ("MathMLinHTML.js")
+ s <- readDataFileUTF8 datadir "MathMLinHTML.js"
return $ ("mathml-script", s) : variables
_ -> return variables