From fc4307fc1fdbc25b91ba8cb5e2f24b24f92a9ffc Mon Sep 17 00:00:00 2001
From: Joshua Suskalo <joshua@suskalo.org>
Date: Wed, 24 Jul 2024 14:26:46 -0500
Subject: [PATCH] Delete the class dir when compilation fails

---
 build.clj | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/build.clj b/build.clj
index bdbf2ba..f7f3796 100644
--- a/build.clj
+++ b/build.clj
@@ -49,11 +49,14 @@
   "Compiles java classes required for interop."
   [opts]
   (.mkdirs (io/file class-dir))
-  (b/process {:command-args ["javac" "--enable-preview"
-                             "src/java/coffi/ffi/Loader.java"
-                             "-d" class-dir
-                             "-target" "19"
-                             "-source" "19"]})
+  (let [compilation-result
+        (b/process {:command-args ["javac" "--enable-preview"
+                                   "src/java/coffi/ffi/Loader.java"
+                                   "-d" class-dir
+                                   "-target" "19"
+                                   "-source" "19"]})]
+    (when-not (zero? (:exit compilation-result))
+      (b/delete {:path class-dir})))
   opts)
 
 (defn- write-pom