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/tests/black/oper.newt
+++ b/tests/black/oper.newt
@@ -39,3 +39,11 @@ data Pair : U -> U -> U where

 blah : Int -> Int -> Int -> Pair Int (Pair Int Int)
 blah x y z = (x , y, z)
+
+curryPlus : Pair Int Int -> Int
+curryPlus (a, b) = a + b
+
+-- case is different path, so separate test
+caseCurry : Pair Int Int -> Int
+caseCurry x = case x of
+  (a, b) => a + b