From da1a10cc577699e69b6de99c7373b59d9ba726d0 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 5 Jul 2022 10:36:13 +0530
Subject: git: Add condition-git-error utility.

* tissue/git.scm: Import (rnrs conditions) and (srfi srfi-1).
(condition-git-error): New public function.
* bin/tissue (default-configuration): Use condition-git-error.
---
 bin/tissue | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'bin')

diff --git a/bin/tissue b/bin/tissue
index 1dab955..946a240 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -222,12 +222,10 @@ Export the repository as a website to OUTPUT-DIRECTORY.
     (state-directory . "/var/lib/tissue")
     ;; Assume current repository as default. If there is no current
     ;; repository, do not configure any hosts.
-    (hosts . ,(guard (c ((and (irritants-condition? c)
-                              (match (condition-irritants c)
-                                ((git-error _ ...)
-                                 (= (git-error-code git-error)
-                                    GIT_ENOTFOUND))
-                                (_ #f)))
+    (hosts . ,(guard (c ((let ((git-error (condition-git-error c)))
+                           (and git-error
+                                (= (git-error-code git-error)
+                                   GIT_ENOTFOUND)))
                          '()))
                 `(("localhost"
                    (upstream-repository . ,(git-top-level))))))))
-- 
cgit v1.2.3