qn for metas
This commit is contained in:
@@ -1251,7 +1251,7 @@ check ctx tm ty = case (tm, !(forceType ctx.env ty)) of
|
||||
clauses <- traverse (\(MkAlt pat rawRHS) => pure $ MkClause (getFC pat) [(scnm, !(mkPat top (pat, Explicit)))] [] rawRHS ) alts
|
||||
-- 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)
|
||||
pure $ Let fc scnm sc !(buildTree ctx' $ MkProb clauses ty)
|
||||
|
||||
-- rendered in ProcessDecl
|
||||
|
||||
Reference in New Issue
Block a user