fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

Error message in src/Settings/WellKnownFiles/TH.hs made more verbose

Browse Source
This commit is contained in:
Stephan Barth 2024-02-26 15:12:44 +01:00
parent 0541895c94
commit 16e2237f5b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Settings/WellKnownFiles/TH.hs
View File

@ -110,7 +110,7 @@ mkWellKnown defLang wellKnownBase wellKnownLinks = do
, let languages' = Set.delete defLang $ Map.keysSet languageLinks , let languages' = Set.delete defLang $ Map.keysSet languageLinks
-> return $ defLang :| Set.toList languages' -> return $ defLang :| Set.toList languages'
| otherwise | 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" fVar <- newName "f"