diff options
Diffstat (limited to 'snug-clean/src/Snug/Parse.icl')
| -rw-r--r-- | snug-clean/src/Snug/Parse.icl | 2 |
1 files changed, 1 insertions, 1 deletions
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 |