Produce error if --csl is used more than once (#8252)

Closes #8195. Co-authored-by: Prat T <pt2121@users.noreply.github.com>
jgm · Aug 30, 2022 · 06c3928 · 06c3928
1 parent 9b6220c
commit 06c3928
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/Text/Pandoc/App/CommandLineOptions.hs b/src/Text/Pandoc/App/CommandLineOptions.hs
@@ -727,10 +727,11 @@ options =
 
      , Option "" ["csl"]
                  (ReqArg
-                  (\arg opt ->
-                     return opt{ optMetadata =
-                                   addMeta "csl" (normalizePath arg) $
-                                   optMetadata opt })
+                  (\arg opt -> do
+                    case lookupMeta (T.pack "csl") $ optMetadata opt of
+                      Just _ -> E.throwIO $ PandocOptionError "Only one CSL file can be specified."
+                      Nothing -> return opt{ optMetadata = addMeta "csl" (normalizePath arg) $
+                      optMetadata opt })
                    "FILE")
                  ""