1
1
mirror of https://github.com/github/semantic.git synced 2024-11-27 12:57:49 +03:00

Assign parenthesized patterns

This commit is contained in:
Rick Winfrey 2018-06-12 14:18:56 -07:00
parent 2397c47e9a
commit 811a7335a0

View File

@ -243,6 +243,7 @@ expressionChoices = [
, newType
, operator
, operatorSection
, parenthesizedPattern
, parenthesizedTypePattern
, pattern
, pragma
@ -438,6 +439,9 @@ operatorSection = (makeTerm <$> symbol RightOperatorSection <*> children (Syntax
packageQualifiedImport :: Assignment
packageQualifiedImport = makeTerm <$> symbol PackageQualifiedImport <*> (Literal.TextElement <$> source)
parenthesizedPattern :: Assignment
parenthesizedPattern = symbol ParenthesizedPattern *> children expressions
parenthesizedTypePattern :: Assignment
parenthesizedTypePattern = symbol ParenthesizedTypePattern *> children expressions