diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-09-26 21:20:19 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-09-26 21:20:19 -0700 |
commit | d87b87557527e67a3a8f74681f71cf69caa6bc89 (patch) | |
tree | 7a91ed1081a84f14add5bb4369e76be5df95174c | |
parent | 8c13c60d65b648d2723c048f176eccd61e245ad6 (diff) | |
download | pandoc-citeproc-preamble-d87b87557527e67a3a8f74681f71cf69caa6bc89.tar.gz |
don't call `pandoc --version` twice
-rw-r--r-- | src/pandoc-citeproc-preamble.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/pandoc-citeproc-preamble.hs b/src/pandoc-citeproc-preamble.hs index df75ed5..6d26a81 100644 --- a/src/pandoc-citeproc-preamble.hs +++ b/src/pandoc-citeproc-preamble.hs @@ -27,10 +27,11 @@ findPreambleFile (Format format) meta = metadataPreamble@(Just _) -> return metadataPreamble Nothing -> tryDatadir where - defaultPreamble = (</> "citeproc-preamble" </> "default" <.> format) - <$> getPandocDatadir - tryDatadir = defaultPreamble >>= doesFileExist >>= \exists -> - if exists then Just <$> defaultPreamble else return Nothing + tryDatadir = do + defaultPreamble <- (</> "citeproc-preamble" </> "default" <.> format) + <$> getPandocDatadir + doesFileExist defaultPreamble >>= \exists -> + return $ if exists then Just defaultPreamble else Nothing getPandocDatadir :: IO FilePath getPandocDatadir = |