From d87b87557527e67a3a8f74681f71cf69caa6bc89 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 26 Sep 2015 21:20:19 -0700 Subject: don't call `pandoc --version` twice --- src/pandoc-citeproc-preamble.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src') 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 = -- cgit v1.2.3