From c458290574e0421f358f41ffc6a21fa6d94b278a Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Mon, 27 Sep 2021 22:44:06 -0600 Subject: [PATCH] clarify Archive constructor --- projects/nat-archive-tool/src/nat/Archive.kiss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/projects/nat-archive-tool/src/nat/Archive.kiss b/projects/nat-archive-tool/src/nat/Archive.kiss index 9491d796..d6d5100e 100644 --- a/projects/nat-archive-tool/src/nat/Archive.kiss +++ b/projects/nat-archive-tool/src/nat/Archive.kiss @@ -2,6 +2,7 @@ [:Array systems [] + // Parse all entries into a dictionary of id => entry :Map entries (let [entryDir (joinPath archiveDir "entries") componentDir (joinPath archiveDir "components") @@ -10,7 +11,9 @@ (FileSystem.createDirectory componentDir) (FileSystem.createDirectory filesDir) (let [entryFiles (FileSystem.readDirectory entryDir)] - (for file entryFiles =>(file.withoutExtension) (the Entry (Json.parse (File.getContent (joinPath archiveDir "entries" file)))))))]) + (for file entryFiles + =>(file.withoutExtension) + (the Entry (Json.parse (File.getContent (joinPath archiveDir "entries" file)))))))]) (method addSystem [:System system] // Assign entries to the Systems that care about them