better FC

2024-09-12 22:02:56 -07:00
parent ce023ca24b
commit 49c1f0ce5d
1 changed files with 1 additions and 1 deletions
--- a/src/Lib/Check.idr
+++ b/src/Lib/Check.idr
@@ -222,7 +222,7 @@ insert : (ctx : Context) -> Tm -> Val -> M (Tm, Val)
 insert ctx tm ty = do
  case !(forceMeta ty) of
    VPi fc x Implicit a b => do
-      m <- freshMeta ctx fc
+      m <- freshMeta ctx (getFC tm)
      mv <- eval ctx.env CBN m
      insert ctx (App emptyFC tm m) !(b $$ mv)
    va => pure (tm, va)