Allow output-file to be null in --defaults.

This commit is contained in:
John MacFarlane 2019-10-11 08:57:34 -07:00
parent c468951d8e
commit 8a64bd0abf

View file

@ -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" ->