Better location on an error
This commit is contained in:
@@ -302,7 +302,7 @@ invert lvl sp = go sp Nil
|
|||||||
-- when does this happen?
|
-- when does this happen?
|
||||||
error fc "non-linear pattern: \{show sp}"
|
error fc "non-linear pattern: \{show sp}"
|
||||||
else go xs (k :: acc)
|
else go xs (k :: acc)
|
||||||
go (xs :< v) _ = error emptyFC "non-variable in pattern \{show v}"
|
go (xs :< v) _ = error (getFC v) "non-variable in pattern \{show v}"
|
||||||
|
|
||||||
rename : QName -> List Int -> Int -> Val -> M Tm
|
rename : QName -> List Int -> Int -> Val -> M Tm
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user