tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

services: herd: Fix matching ok responses from shepherd service.

Browse Source 
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.
This commit is contained in:
Christopher Baines
2017-08-05 22:16:47 +01:00
parent 65831c6425
commit dc7b3e5633
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
gnu/services/herd.scm
View File

@@ -146,7 +146,7 @@ result. Otherwise return #f."
(force-output sock) (force-output sock)
(match (read sock) (match (read sock)
(('reply ('version 0 _ ...) ('result (result)) ('error #f) (('reply ('version 0 _ ...) ('result result) ('error #f)
('messages messages)) ('messages messages))
(for-each display-message messages) (for-each display-message messages)
(cont result)) (cont result))