summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/tissue10
1 files changed, 4 insertions, 6 deletions
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))))))))