From 9fdf00248c2e9edae36a1df23ec7f60a6291d5ee Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Thu, 7 Oct 2021 20:50:34 -0600
Subject: [PATCH] Clearer error when the archive dir doesn't exist

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

diff --git a/src/nat/Archive.kiss b/src/nat/Archive.kiss
index 3acd84d..73a36cb 100644
--- a/src/nat/Archive.kiss
+++ b/src/nat/Archive.kiss
@@ -7,6 +7,8 @@
             (let [entryDir (joinPath archiveDir "entries")
                     componentDir (joinPath archiveDir "components")
                     filesDir (joinPath archiveDir "files")]
+                (assert (FileSystem.exists archiveDir) "Archive directory $archiveDir does not exist")
+                (assert (FileSystem.isDirectory archiveDir) "$archiveDir is not a directory")
                 (FileSystem.createDirectory entryDir)
                 (FileSystem.createDirectory componentDir)
                 (FileSystem.createDirectory filesDir)