guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

05/07: offload: Remove 'with-nar-error-handling' macro.


From: Ludovic Courtès
Subject: 05/07: offload: Remove 'with-nar-error-handling' macro.
Date: Fri, 25 Nov 2016 22:45:43 +0000 (UTC)

civodul pushed a commit to branch master
in repository guix.

commit e8a5db80d5fe2e603d7b72c3b3cc5ba6ea6d99d9
Author: Ludovic Courtès <address@hidden>
Date:   Sat Nov 5 00:46:04 2016 +0100

    offload: Remove 'with-nar-error-handling' macro.
    
    * guix/scripts/offload.scm (with-nar-error-handling): Remove.
    (guix-offload): Use 'with-error-handling' instead.
---
 guix/scripts/offload.scm |   13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm
index 8704743..35286ab 100644
--- a/guix/scripts/offload.scm
+++ b/guix/scripts/offload.scm
@@ -664,17 +664,6 @@ defines a total order on machines.)"
              ;; Not now, all the machines are busy.
              (display "# postpone\n")))))))
 
-(define-syntax-rule (with-nar-error-handling body ...)
-  "Execute BODY with any &nar-error suitably reported to the user."
-  (guard (c ((nar-error? c)
-             (let ((file (nar-error-file c)))
-               (if (condition-has-type? c &message)
-                   (leave (_ "while importing file '~a': ~a~%")
-                          file (gettext (condition-message c)))
-                   (leave (_ "failed to import file '~a'~%")
-                          file)))))
-    body ...))
-
 
 ;;;
 ;;; Entry point.
@@ -705,7 +694,7 @@ defines a total order on machines.)"
              (cond ((regexp-exec request-line-rx line)
                     =>
                     (lambda (match)
-                      (with-nar-error-handling
+                      (with-error-handling
                        (process-request (equal? (match:substring match 1) "1")
                                         (match:substring match 2) ; system
                                         (call-with-input-file



reply via email to

[Prev in Thread] Current Thread [Next in Thread]