From 8d50f37d533b48fedcbaa953964771a759a1421d Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 30 Mar 2017 17:23:16 +0200 Subject: Don't read jats.csl unless we actually need it. --- src/Text/Pandoc/App.hs | 11 ++++++----- 1 file 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 -- cgit v1.2.3