better names on solutions

This commit is contained in:
2024-11-14 16:28:40 -08:00
parent a186c15477
commit 60abe813dc
4 changed files with 15 additions and 7 deletions

View File

@@ -154,10 +154,10 @@ logMetas mstart = do
-- FIXME in Combinatory, the val doesn't match environment?
let msg = "Unsolved meta \{show k} \{show kind} type \{pprint (names ctx) tm} \{show $ length cons} constraints"
msgs <- for cons $ \ (MkMc fc env sp val) => do
putStrLn " ENV \{show env}"
pure " (m\{show k} (\{unwords $ map show $ sp <>> []}) =?= \{show val}"
pure " * (m\{show k} (\{unwords $ map show $ sp <>> []}) =?= \{show val}"
addError $ E (l,c) $ unlines ([msg] ++ msgs)
export
processDecl : Decl -> M ()