better fc in missing case
This commit is contained in:
@@ -1361,7 +1361,7 @@ check ctx tm ty = do
|
||||
pure $ MkClause (getFC pat) ((scnm, pat') :: Nil) Nil rawRHS
|
||||
-- buildCase expects scrutinee to be a name in the context, so we need to let it.
|
||||
-- if it's a Bnd and not shadowed we could skip the let, but that's messy.
|
||||
let ctx' = extend ctx scnm scty
|
||||
let ctx' = withPos (extend ctx scnm scty) (getFC tm)
|
||||
tree <- buildTree ctx' $ MkProb clauses ty
|
||||
pure $ Let fc scnm sc tree
|
||||
|
||||
|
||||
Reference in New Issue
Block a user