Don't read jats.csl unless we actually need it.

1 files changed, 6 insertions, 5 deletions

diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs
index e45d10254..ce4c87ec1 100644
--- a/src/Text/Pandoc/App.hs
+++ b/src/Text/Pandoc/App.hs
@@ -386,11 +386,12 @@ convertWithOpts opts = do
                                  withMediaBag . r readerOpts) sources
                 return (mconcat (map fst pairs), mconcat (map snd pairs))
 
-  jatsCSL <- readDataFile datadir "jats.csl"
-  let jatsEncoded = makeDataURI ("application/xml", jatsCSL)
-  let metadata = if format == "jats"
-                    then ("csl", jatsEncoded) : optMetadata opts
-                    else optMetadata opts
+  metadata <- if format == "jats"
+                 then do
+                   jatsCSL <- readDataFile datadir "jats.csl"
+                   let jatsEncoded = makeDataURI ("application/xml", jatsCSL)
+                   return $ ("csl", jatsEncoded) : optMetadata opts
+                 else return $ optMetadata opts
 
   runIO' $ do
     (doc, media) <- sourceToDoc sources