add types to metas, find example that needs postpone

This commit is contained in:
2024-09-17 22:11:23 -07:00
parent 699a4bd575
commit 4f7b78f056
6 changed files with 65 additions and 31 deletions

View File

@@ -76,9 +76,13 @@ processDecl (Def fc nm clauses) = do
tm' <- zonk ctx 0 [] tm
putStrLn "NF \{pprint[] tm'}"
mc <- readIORef ctx.metas
-- Maybe here we try search?
for_ mc.metas $ \case
(Solved k x) => pure ()
(Unsolved (l,c) k xs) => do
(Unsolved (l,c) k xs ty) => do
-- should just print, but it's too subtle in the sea of messages
-- we'd also need the ability to mark the whole top context as failure if we continue
-- putStrLn "ERROR at (\{show l}, \{show c}): Unsolved meta \{show k}"