[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: services: herd: Fix matching ok responses from shepherd service.
From: |
Christopher Baines |
Subject: |
01/02: services: herd: Fix matching ok responses from shepherd service. |
Date: |
Tue, 8 Aug 2017 15:49:58 -0400 (EDT) |
cbaines pushed a commit to branch master
in repository guix.
commit dc7b3e56337ee9d8dcd8fe7d5cab71ef536d024f
Author: Christopher Baines <address@hidden>
Date: Sat Aug 5 22:16:47 2017 +0100
services: herd: Fix matching ok responses from shepherd service.
Previously the match expression case for a successful response
(where error is #f) required that the result component contained a list
with a
single element.
As far as I see when looking at the responses from the shepherd, this is not
normally the case. Therefore, to avoid treating successful responses as
errors, make the match requirement more permissive, accepting any value.
* gnu/services/herd.scm (invoke-action): Change match condition for ok
responses.
---
gnu/services/herd.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm
index f8d60a4..49400ab 100644
--- a/gnu/services/herd.scm
+++ b/gnu/services/herd.scm
@@ -146,7 +146,7 @@ result. Otherwise return #f."
(force-output sock)
(match (read sock)
- (('reply ('version 0 _ ...) ('result (result)) ('error #f)
+ (('reply ('version 0 _ ...) ('result result) ('error #f)
('messages messages))
(for-each display-message messages)
(cont result))