operators in case patterns

2024-09-14 21:36:03 -07:00
parent 086f3d6541
commit ac7a61e1fd
7 changed files with 47 additions and 32 deletions
--- a/src/Lib/Parser.idr
+++ b/src/Lib/Parser.idr
@@ -171,7 +171,7 @@ pPattern = PatCon (!getPos) Explicit <$> (uident <|> token MixFix) <*> many patA

 caseAlt : Parser RCaseAlt
 caseAlt = do
-  pat <- pPattern
+  pat <- typeExpr
  keyword "=>"
  t <- term
  pure $ MkAlt pat t