From 8a64bd0abf447bf870fc8724ac0c1f2079aa6d7e Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 11 Oct 2019 08:57:34 -0700
Subject: [PATCH] Allow output-file to be null in --defaults.
---
src/Text/Pandoc/App/Opt.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Text/Pandoc/App/Opt.hs b/src/Text/Pandoc/App/Opt.hs
index d14365e85..4c08e3074 100644
--- a/src/Text/Pandoc/App/Opt.hs
+++ b/src/Text/Pandoc/App/Opt.hs
@@ -188,7 +188,7 @@ doOpt opt (k',v) = do
<|>
(parseYAML v >>= \x -> return opt { optMetadataFiles = [unpack x] })
"output-file" ->
- parseYAML v >>= \x -> return opt { optOutputFile = Just $ unpack x }
+ parseYAML v >>= \x -> return opt { optOutputFile = unpack <$> x }
"input-files" ->
parseYAML v >>= \x -> return opt { optInputFiles = map unpack x }
"number-sections" ->