print a slightly better error if 'case' has no qty
This commit is contained in:
parent
13e9285bec
commit
1ab0e42605
1 changed files with 3 additions and 1 deletions
|
@ -166,7 +166,9 @@ lamIntro = symbolsC [(Lam, "λ"), (DLam, "δ")]
|
||||||
private covering
|
private covering
|
||||||
caseIntro : Grammar True PQty
|
caseIntro : Grammar True PQty
|
||||||
caseIntro = symbols [(One, "case1"), (Any, "caseω")]
|
caseIntro = symbols [(One, "case1"), (Any, "caseω")]
|
||||||
<|> resC "case" *> qty <* resC "."
|
<|> resC "case" *>
|
||||||
|
(qty <* resC "." <|>
|
||||||
|
fatalError {c = True} "missing quantity on 'case'")
|
||||||
|
|
||||||
private
|
private
|
||||||
optNameBinder : Grammar False BName
|
optNameBinder : Grammar False BName
|
||||||
|
|
Loading…
Reference in a new issue