diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-09-26 10:38:59 +0300 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:21:53 +0200 |
| commit | 98d3f41cd8cebf1c1e26c29f01140d0543ee5853 (patch) | |
| tree | 5924997c3f45d514e624b646baa1f2bb09103c81 /src | |
| parent | 15b613ac76fa2a9a439f10ac9455c6eb1498b03f (diff) | |
Improve tests
Diffstat (limited to 'src')
| -rw-r--r-- | src/Utils.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Utils.hs b/src/Utils.hs index e2c182b..3cf61bf 100644 --- a/src/Utils.hs +++ b/src/Utils.hs @@ -55,6 +55,7 @@ instance (Eq AST) where ASTBoolean a == ASTBoolean b = a == b ASTString a == ASTString b = a == b ASTVector a == ASTVector b = a == b + ASTFunctionCall a == ASTFunctionCall b = a == b ASTHashMap a == ASTHashMap b = a == b ASTUnit == ASTUnit = True _ == _ = False @@ -66,7 +67,9 @@ instance (Ord AST) where ASTBoolean a <= ASTBoolean b = a <= b ASTString a <= ASTString b = a <= b ASTVector a <= ASTVector b = a <= b + ASTFunctionCall a <= ASTFunctionCall b = a <= b ASTHashMap a <= ASTHashMap b = a <= b + ASTUnit <= ASTUnit = True _ <= _ = False assertIsASTFunction :: AST -> LContext AST |