dunham/newt
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

better FC

Browse Source
This commit is contained in:
Steve Dunham
2024-09-12 22:02:56 -07:00
parent ce023ca24b
commit 49c1f0ce5d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Lib/Check.idr
View File

@@ -222,7 +222,7 @@ insert : (ctx : Context) -> Tm -> Val -> M (Tm, Val)
insert ctx tm ty = do insert ctx tm ty = do
case !(forceMeta ty) of case !(forceMeta ty) of
VPi fc x Implicit a b => do VPi fc x Implicit a b => do
m <- freshMeta ctx fc m <- freshMeta ctx (getFC tm)
mv <- eval ctx.env CBN m mv <- eval ctx.env CBN m
insert ctx (App emptyFC tm m) !(b $$ mv) insert ctx (App emptyFC tm m) !(b $$ mv)
va => pure (tm, va) va => pure (tm, va)