diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-02-23 13:03:23 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-02-23 13:03:23 +0100 |
| commit | f2d8faff040986e498575de889a22d16aa1037e5 (patch) | |
| tree | 33830e2843a08d5f448b222b98e08db901bd2a22 /gnu | |
| parent | 305b58c05c6e04e165489373b2ab3355b64afebf (diff) | |
services: herd: Add missing newlines in error messages.
* gnu/services/herd.scm (report-action-error): Add missing newlines in
messages.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/services/herd.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm index a3a9bf0230..9cb33a9fd0 100644 --- a/gnu/services/herd.scm +++ b/gnu/services/herd.scm @@ -66,19 +66,19 @@ return the socket." command object." (match error (('error ('version 0 x ...) 'service-not-found service) - (report-error (_ "service '~a' could not be found") + (report-error (_ "service '~a' could not be found~%") service)) (('error ('version 0 x ...) 'action-not-found action service) - (report-error (_ "service '~a' does not have an action '~a'") + (report-error (_ "service '~a' does not have an action '~a'~%") service action)) (('error ('version 0 x ...) 'action-exception action service key (args ...)) (report-error (_ "exception caught while executing '~a' \ -on service '~a':") +on service '~a':~%") action service) (print-exception (current-error-port) #f key args)) (('error . _) - (report-error (_ "something went wrong: ~s") + (report-error (_ "something went wrong: ~s~%") error)) (#f ;not an error #t))) |