diff options
author | John MacFarlane <jgm@berkeley.edu> | 2013-12-19 20:20:06 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2013-12-19 20:20:06 -0800 |
commit | 3c4aa01664486701a531b0db29dd2bb5124965ee (patch) | |
tree | 29604431cacebc592b57bfb5de02213ecea56b2d /pandoc.hs | |
parent | 8053ba2123699fd89900b2a9c5656a72d3a2fe85 (diff) | |
parent | 3d70059a4896c66cab59832a3ed9eb8334b84a2f (diff) | |
download | pandoc-3c4aa01664486701a531b0db29dd2bb5124965ee.tar.gz |
Merge pull request #1099 from hdevalence/master
Minor HLint-suggested changes
Diffstat (limited to 'pandoc.hs')
-rw-r--r-- | pandoc.hs | 8 |
1 files changed, 3 insertions, 5 deletions
@@ -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 |