add types to metas, find example that needs postpone
This commit is contained in:
@@ -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}"
|
||||
|
||||
Reference in New Issue
Block a user