From 16e2237f5bc100fcb0b4e4e922f9e58b71dff5c2 Mon Sep 17 00:00:00 2001
From: Stephan Barth <stephan.barth@uniworx.de>
Date: Mon, 26 Feb 2024 15:12:44 +0100
Subject: [PATCH] Error message in src/Settings/WellKnownFiles/TH.hs made more
 verbose

---
 src/Settings/WellKnownFiles/TH.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Settings/WellKnownFiles/TH.hs b/src/Settings/WellKnownFiles/TH.hs
index 3844bf664..ada0a083e 100644
--- a/src/Settings/WellKnownFiles/TH.hs
+++ b/src/Settings/WellKnownFiles/TH.hs
@@ -110,7 +110,7 @@ mkWellKnown defLang wellKnownBase wellKnownLinks = do
     , let languages' = Set.delete defLang $ Map.keysSet languageLinks
       -> return $ defLang :| Set.toList languages'
     | otherwise
-      -> fail "default language is missing in wellKnownBase"
+      -> fail ("default language is missing in wellKnownBase" ++ "; default language is '" ++ (show defLang) ++ "' ; list of known languages is " ++ (show $ Map.keys languageLinks))
 
 
   fVar <- newName "f"