1
1
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +03:00

Allow emptyTerm in exit intrinsic

This commit is contained in:
joshvera 2018-01-25 20:25:25 -05:00
parent ffb4cba32e
commit 99000bf852

View File

@ -344,7 +344,7 @@ evalIntrinsic :: Assignment
evalIntrinsic = makeTerm <$> symbol EvalIntrinsic <*> children (Syntax.EvalIntrinsic <$> term expression)
exitIntrinsic :: Assignment
exitIntrinsic = makeTerm <$> symbol ExitIntrinsic <*> children (Syntax.ExitIntrinsic <$> term expression)
exitIntrinsic = makeTerm <$> symbol ExitIntrinsic <*> children (Syntax.ExitIntrinsic <$> (term expression <|> emptyTerm))
issetIntrinsic :: Assignment
issetIntrinsic = makeTerm <$> symbol IssetIntrinsic <*> children (Syntax.IssetIntrinsic <$> (makeTerm <$> location <*> someTerm variable))