From 9d53f097a2cba26ab3f81060f3a133c69a17e186 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Fri, 20 Dec 2024 15:01:49 +0300
Subject: Correctly delete virtuoso build directory.

* genenetwork-development.scm (transform-genenetwork-database-gexp): Only
delete virtuoso "build" directory.
---
 genenetwork-development.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index 3fcb1de..d971a8c 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -911,7 +911,8 @@ described by CONFIG, a <genenetwork-configuration> object."
                      #$connection-settings "--output" build-directory)
              ;; First clear all the files in our virtuoso directory
              (for-each (lambda (file)
-                         (delete-file file))
+                         (unless (string-suffix? "build" (dirname file))
+                           (delete-file file)))
                        (find-files #$virtuoso-data-dir ".ttl"))
              ;; Move data into the container's virtuoso data directory
              (copy-recursively build-directory #$virtuoso-data-dir)
-- 
cgit v1.2.3