Show expected keys with faulty yaml

2021-12-11 22:18:59 +01:00 · 2021-12-11 22:18:59 +01:00 · ccc6272bfd
commit ccc6272bfd
parent 86f05803c7
1 changed files with 2 additions and 1 deletions
--- a/make-pages/Info.hs
+++ b/make-pages/Info.hs
@ -251,7 +251,8 @@ checkKeys mapping wanted = do
  keys <- getKeys mapping
  let unused = Set.toList $ keys \\ wanted
  unless (null unused) do
-    fail $ "unused keys: " <> show unused
+    fail $ "unused keys: " <> show unused <> "\n" <>
+           "expected: " <> show wanted


 instance FromYAML Info where