mirror of
https://github.com/github/semantic.git
synced 2024-12-23 06:41:45 +03:00
Allow emptyTerm in exit intrinsic
This commit is contained in:
parent
ffb4cba32e
commit
99000bf852
@ -344,7 +344,7 @@ evalIntrinsic :: Assignment
|
|||||||
evalIntrinsic = makeTerm <$> symbol EvalIntrinsic <*> children (Syntax.EvalIntrinsic <$> term expression)
|
evalIntrinsic = makeTerm <$> symbol EvalIntrinsic <*> children (Syntax.EvalIntrinsic <$> term expression)
|
||||||
|
|
||||||
exitIntrinsic :: Assignment
|
exitIntrinsic :: Assignment
|
||||||
exitIntrinsic = makeTerm <$> symbol ExitIntrinsic <*> children (Syntax.ExitIntrinsic <$> term expression)
|
exitIntrinsic = makeTerm <$> symbol ExitIntrinsic <*> children (Syntax.ExitIntrinsic <$> (term expression <|> emptyTerm))
|
||||||
|
|
||||||
issetIntrinsic :: Assignment
|
issetIntrinsic :: Assignment
|
||||||
issetIntrinsic = makeTerm <$> symbol IssetIntrinsic <*> children (Syntax.IssetIntrinsic <$> (makeTerm <$> location <*> someTerm variable))
|
issetIntrinsic = makeTerm <$> symbol IssetIntrinsic <*> children (Syntax.IssetIntrinsic <$> (makeTerm <$> location <*> someTerm variable))
|
||||||
|
Loading…
Reference in New Issue
Block a user