Show expected keys with faulty yaml
This commit is contained in:
parent
86f05803c7
commit
ccc6272bfd
1 changed files with 2 additions and 1 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue