Don't read sources until in/out format are verified.

Partially addresses #7797.

1 files changed, 3 insertions, 2 deletions

diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs
index 59fd43bac..3ddc4c761 100644
--- a/src/Text/Pandoc/App.hs
+++ b/src/Text/Pandoc/App.hs
@@ -116,8 +116,6 @@ convertWithOpts opts = do
     setInputFiles (fromMaybe ["-"] (optInputFiles opts))
     setOutputFile (optOutputFile opts)
 
-    inputs <- readSources sources
-
     -- assign reader and writer based on options and filenames
     readerName <- case optFrom opts of
                        Just f  -> return f
@@ -282,6 +280,9 @@ convertWithOpts opts = do
                          (optCitationAbbreviations opts) $ mempty
 
     let filterEnv = Environment readerOpts writerOptions
+
+    inputs <- readSources sources
+
     doc <- (case reader of
              TextReader r
                | readerNameBase == "json" ->