From 8cf5fe8a5a9db4e773a6468f3122239b378debc2 Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Mon, 27 Sep 2021 22:44:06 -0600
Subject: [PATCH] clarify Archive constructor

---
 src/nat/Archive.kiss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/nat/Archive.kiss b/src/nat/Archive.kiss
index 9491d79..d6d5100 100644
--- a/src/nat/Archive.kiss
+++ b/src/nat/Archive.kiss
@@ -2,6 +2,7 @@
 
     [:Array<System> systems
             []
+        // Parse all entries into a dictionary of id => entry
         :Map<String,Entry> 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