From 99000bf85248de836aece889c4493069e492d89e Mon Sep 17 00:00:00 2001 From: joshvera Date: Thu, 25 Jan 2018 20:25:25 -0500 Subject: [PATCH] Allow emptyTerm in exit intrinsic --- src/Language/PHP/Assignment.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Language/PHP/Assignment.hs b/src/Language/PHP/Assignment.hs index d79781a57..24446d9d5 100644 --- a/src/Language/PHP/Assignment.hs +++ b/src/Language/PHP/Assignment.hs @@ -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))