From ccc6272bfdf0aaa716b60ed19f277c305c914d41 Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Sat, 11 Dec 2021 22:18:59 +0100
Subject: [PATCH] Show expected keys with faulty yaml

---
 make-pages/Info.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/make-pages/Info.hs b/make-pages/Info.hs
index dfd5136..8f8a018 100644
--- 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