From e0d2b115983f89288eb130bc0cb2bd89e3e08b5b Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Thu, 30 Sep 2021 16:34:44 -0600
Subject: [PATCH] fix tagsMatch

---
 src/nat/Lib.kiss | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/nat/Lib.kiss b/src/nat/Lib.kiss
index bd784f3..2bcd3a8 100644
--- a/src/nat/Lib.kiss
+++ b/src/nat/Lib.kiss
@@ -56,9 +56,11 @@
                 (= ,value (readComponent e ,componentType))))
         ,process))
 
-(function tagList [archive e]
-    (let [t (readComponent e Tags)]
-        (collect (t.keys))))
+(function :Array<String> tagList [archive :nat.Entry e]
+    (if (hasComponent e Tags)
+            (let [t (readComponent e Tags)]
+                (collect (t.keys)))
+        []))
 
 (function tagsMatch [archive e tagsBoolExp]
     (BoolExpInterp.eval tagsBoolExp (tagList archive e)))