mirror of
https://github.com/github/semantic.git
synced 2024-12-25 16:02:43 +03:00
Assign infix constructor identifiers
This commit is contained in:
parent
7e9847489c
commit
aad0bd3210
@ -307,6 +307,7 @@ expressionChoices = [
|
||||
, implicitParameterIdentifier
|
||||
, importAlias
|
||||
, importDeclaration
|
||||
, infixConstructorIdentifier
|
||||
, infixOperatorApp
|
||||
, infixOperatorPattern
|
||||
, infixVariableIdentifier
|
||||
@ -498,6 +499,9 @@ importSpec = symbol ImportSpec *> children (manyTerm import')
|
||||
inClause :: Assignment
|
||||
inClause = symbol InClause *> children expressions
|
||||
|
||||
infixConstructorIdentifier :: Assignment
|
||||
infixConstructorIdentifier = makeTerm <$> symbol InfixConstructorIdentifier <*> children (Syntax.InfixConstructorIdentifier . Name.name <$> source)
|
||||
|
||||
infixOperatorApp :: Assignment
|
||||
infixOperatorApp = makeTerm <$> symbol InfixOperatorApplication <*> children (Syntax.InfixOperatorApp <$> expression <*> (typeApp <|> emptyTerm) <*> expression <*> (expression <|> emptyTerm))
|
||||
|
||||
|
@ -353,6 +353,7 @@ data EntityIdentifier a = TypeVariableIdentifier Name
|
||||
| ModuleIdentifier Name
|
||||
| ConstructorIdentifier Name
|
||||
| ImplicitParameterIdentifier Name
|
||||
| InfixConstructorIdentifier Name
|
||||
| InfixVariableIdentifier Name
|
||||
| TypeClassIdentifier Name
|
||||
| VariableIdentifier Name
|
||||
|
Loading…
Reference in New Issue
Block a user