diff options
| author | Christopher Baines <mail@cbaines.net> | 2017-08-05 22:16:47 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2017-08-08 20:48:53 +0100 |
| commit | dc7b3e56337ee9d8dcd8fe7d5cab71ef536d024f (patch) | |
| tree | 6ab1174614c3f820096a3d6e481905219563cba0 /gnu/services/herd.scm | |
| parent | 65831c6425bf9e82c665f2fe4d0803a483f888a1 (diff) | |
| download | guix-patches-dc7b3e56337ee9d8dcd8fe7d5cab71ef536d024f.tar guix-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.
Diffstat (limited to 'gnu/services/herd.scm')
| -rw-r--r-- | gnu/services/herd.scm | 2 |
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)) |