diff options
Diffstat (limited to 'src')
-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 = |