Default files: Allow leaving input-files blank again.

Leaving it blank yields a Nothing value (interpreted as stdin).
Providing an empty list is intepreted as no input.

This resolves one part of #5888.

1 files changed, 4 insertions, 3 deletions

diff --git a/src/Text/Pandoc/App/Opt.hs b/src/Text/Pandoc/App/Opt.hs
index ed167fff2..09f018233 100644
--- a/src/Text/Pandoc/App/Opt.hs
+++ b/src/Text/Pandoc/App/Opt.hs
@@ -202,15 +202,16 @@ doOpt (k',v) = do
     "input-files" ->
       parseYAML v >>= \x -> return (\o -> o{ optInputFiles =
                                               optInputFiles o <>
-                                              Just (map unpack x) })
+                                                (map unpack <$> x) })
     "input-file" -> -- allow either a list or a single value
       (parseYAML v >>= \x -> return (\o -> o{ optInputFiles =
                                                 optInputFiles o <>
-                                                Just (map unpack x) }))
+                                                  (map unpack <$> x) }))
       <|>
       (parseYAML v >>= \x -> return (\o -> o{ optInputFiles =
                                                 optInputFiles o <>
-                                                Just [unpack x] }))
+                                                ((\z -> [unpack z]) <$> x)
+                                            }))
     "number-sections" ->
       parseYAML v >>= \x -> return (\o -> o{ optNumberSections = x })
     "number-offset" ->