summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2017-08-05 22:16:47 +0100
committerChristopher Baines <mail@cbaines.net>2017-08-08 20:48:53 +0100
commitdc7b3e56337ee9d8dcd8fe7d5cab71ef536d024f (patch)
tree6ab1174614c3f820096a3d6e481905219563cba0
parent65831c6425bf9e82c665f2fe4d0803a483f888a1 (diff)
downloadpatches-dc7b3e56337ee9d8dcd8fe7d5cab71ef536d024f.tar
patches-dc7b3e56337ee9d8dcd8fe7d5cab71ef536d024f.tar.gz
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.
-rw-r--r--gnu/services/herd.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm
index f8d60a4802..49400aba47 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))