From 998a13eb34e148cfff83f2b5b1ee5e3f39053d50 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 25 Dec 2022 19:08:40 +0000
Subject: git: Find git top level correctly even in bare repositories.

* tissue/git.scm (git-top-level): Find git top level correctly even in
bare repositories.
---
 tissue/git.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'tissue')

diff --git a/tissue/git.scm b/tissue/git.scm
index 334ffbc..c837da7 100644
--- a/tissue/git.scm
+++ b/tissue/git.scm
@@ -93,7 +93,11 @@ directory."
 
 (define (git-top-level)
   "Return the top-level directory of the current git repository."
-  (dirname (repository-directory (current-git-repository))))
+  (let ((repository-directory
+         (repository-directory (current-git-repository))))
+    (if (repository-bare? (current-git-repository))
+        repository-directory
+        (dirname repository-directory))))
 
 (define (head-tree repository)
   "Return tree of HEAD in REPOSITORY."
-- 
cgit v1.2.3