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/Syntax.idr
+++ b/src/Lib/Syntax.idr
@@ -57,7 +57,7 @@ record Clause where

 -- could be a pair, but I suspect stuff will be added?
 public export
-data RCaseAlt = MkAlt Pattern Raw
+data RCaseAlt = MkAlt Raw Raw

 data Raw : Type where
  RVar : FC -> (nm : Name) -> Raw