From a1e0ba56b9eed9d23c835bb66278e1a6019f6075 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 20 Jun 2023 22:17:17 +0200
Subject: Simplify case syntax (at least for now): do not allow nested patterns

---
 snug-clean/src/Snug/Parse.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'snug-clean/src/Snug/Parse.icl')

diff --git a/snug-clean/src/Snug/Parse.icl b/snug-clean/src/Snug/Parse.icl
index 4347c34..783fc1a 100644
--- a/snug-clean/src/Snug/Parse.icl
+++ b/snug-clean/src/Snug/Parse.icl
@@ -80,7 +80,7 @@ where
 	caseAlternative = liftM2 CaseAlternative pattern (pToken TArrow *> expression)
 
 	complexPattern
-		= liftM2 ConstructorPattern constructorIdent (many simpleOrParenthesizedPattern)
+		= liftM2 ConstructorPattern constructorIdent (many symbolIdent)
 	simplePattern
 		= pToken TUnderscore $> Wildcard
 		<<|> BasicValuePattern <$> basicValue
-- 
cgit v1.2.3