Citation related changes.

* Don't look for bibliography in ~/.pandoc.  Reason:  doing
  this requires a read + parse of the bibliography even when
  the document doesn't use citations.  This is a big performance
  drag on regular pandoc invocations.
* Only look for default.csl if the document contains references.
  Reason:  avoids the need to read and parse csl file when the
  document contains no references anyway.
* Removed findFirstFile from Shared.

1 files changed, 0 insertions, 12 deletions

diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 67c5153c7..6cc48b88c 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -71,7 +71,6 @@ module Text.Pandoc.Shared (
                      defaultWriterOptions,
                      -- * File handling
                      inDirectory,
-                     findFirstFile,
                      findDataFile,
                      readDataFile
                     ) where
@@ -540,17 +539,6 @@ inDirectory path action = do
   setCurrentDirectory oldDir
   return result
 
--- | Get full file path for the first of a list of files found in the
--- specified directory.
-findFirstFile :: (Maybe FilePath) -> [FilePath] -> IO (Maybe FilePath)
-findFirstFile Nothing _     = return Nothing
-findFirstFile (Just _) []   = return Nothing
-findFirstFile (Just dir) (f:fs) = do
-  ex <- doesFileExist (dir </> f)
-  if ex
-     then return $ Just (dir </> f)
-     else findFirstFile (Just dir) fs
-
 -- | Get file path for data file, either from specified user data directory,
 -- or, if not found there, from Cabal data directory.
 findDataFile :: Maybe FilePath -> FilePath -> IO FilePath