From 4ac110b5116bf5c1521232506c0b3c1831df3896 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 28 Jan 2023 23:45:50 +0000
Subject: bin: Use call-with-temporary-checkout when pulling.

* bin/tissue (pull): Use call-with-temporary-checkout.
---
 bin/tissue | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'bin')

diff --git a/bin/tissue b/bin/tissue
index 948460d..606e36d 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -403,9 +403,8 @@ HOSTNAME."
                                     repository)))))
               (let ((config (load-config)))
                 (parameterize ((%aliases (tissue-configuration-aliases config)))
-                  (call-with-temporary-directory
+                  (call-with-temporary-checkout (git-top-level)
                    (lambda (temporary-repository-clone)
-                     (clone (git-top-level) temporary-repository-clone)
                      ;; Add the top level of the git repository to the
                      ;; load path since there may be user-written
                      ;; modules in the repository.
-- 
cgit v1.2.3