From 98d3f41cd8cebf1c1e26c29f01140d0543ee5853 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Mon, 26 Sep 2022 10:38:59 +0300
Subject: Improve tests

---
 src/Utils.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Utils.hs')

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
-- 
cgit v1.3