fix tagsMatch

2021-09-30 16:34:44 -06:00
parent 4162c09433
commit 0afdbac3f3
1 changed files with 5 additions and 3 deletions
--- a/projects/nat-archive-tool/src/nat/Lib.kiss
+++ b/projects/nat-archive-tool/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)))