From 5fb3b82bdf2accb785380c78cf8481bbe06b73f1 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 9 Nov 2021 12:59:26 -0800 Subject: [PATCH] Accept empty `--metadata-file`. Closes #7675. This is a regression from 2.15 behavior. --- src/Text/Pandoc/Readers/Metadata.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Text/Pandoc/Readers/Metadata.hs b/src/Text/Pandoc/Readers/Metadata.hs index 534a7645b..30760e933 100644 --- a/src/Text/Pandoc/Readers/Metadata.hs +++ b/src/Text/Pandoc/Readers/Metadata.hs @@ -42,6 +42,7 @@ yamlBsToMeta :: (PandocMonad m, HasLastStrPosition st) yamlBsToMeta pMetaValue bstr = do case Yaml.decodeAllEither' bstr of Right (Object o:_) -> fmap Meta <$> yamlMap pMetaValue o + Right [] -> return . return $ mempty Right [Null] -> return . return $ mempty Right _ -> Prelude.fail "expected YAML object" Left err' -> do