Show expected keys with faulty yaml

This commit is contained in:
Rhiannon Morris 2021-12-11 22:18:59 +01:00
parent 86f05803c7
commit ccc6272bfd

View file

@ -251,7 +251,8 @@ checkKeys mapping wanted = do
keys <- getKeys mapping keys <- getKeys mapping
let unused = Set.toList $ keys \\ wanted let unused = Set.toList $ keys \\ wanted
unless (null unused) do unless (null unused) do
fail $ "unused keys: " <> show unused fail $ "unused keys: " <> show unused <> "\n" <>
"expected: " <> show wanted
instance FromYAML Info where instance FromYAML Info where