kiss-lang/nat-archive-tool
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases Wiki Activity

fix tagsMatch

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-09-30 16:34:44 -06:00
parent 7fedba3931
commit e0d2b11598
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/nat/Lib.kiss
View File

@@ -56,9 +56,11 @@
(= ,value (readComponent e ,componentType)))) (= ,value (readComponent e ,componentType))))
,process)) ,process))
(function tagList [archive e] (function :Array<String> tagList [archive :nat.Entry e]
(if (hasComponent e Tags)
(let [t (readComponent e Tags)] (let [t (readComponent e Tags)]
(collect (t.keys)))) (collect (t.keys)))
[]))
(function tagsMatch [archive e tagsBoolExp] (function tagsMatch [archive e tagsBoolExp]
(BoolExpInterp.eval tagsBoolExp (tagList archive e))) (BoolExpInterp.eval tagsBoolExp (tagList archive e)))