aboutsummaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorBruno Victal <mirai@makinata.eu>2023-01-25 16:38:51 +0000
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2023-03-21 09:41:42 -0400
commiteba81e68acbb989bcd1c1c22d2fe2c808724bb21 (patch)
tree907ff449ee775da696787476ed66ed13902cc3ac /gnu/services
parenta586c3996e0fb95a475527cfb6b9303c03b2b135 (diff)
downloadguix-eba81e68acbb989bcd1c1c22d2fe2c808724bb21.tar
guix-eba81e68acbb989bcd1c1c22d2fe2c808724bb21.tar.gz
services: configuration: simplify alist? procedure.
* gnu/services/configuration.scm (alist?): simplify procedure. Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/configuration.scm5
1 files changed, 1 insertions, 4 deletions
diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm
index 02d1aa1796..174c2f20d2 100644
--- a/gnu/services/configuration.scm
+++ b/gnu/services/configuration.scm
@@ -440,10 +440,7 @@ the list result in @code{#t} when applying PRED? on them."
(list-of string?))
(define alist?
- (match-lambda
- (() #t)
- ((head . tail) (and (pair? head) (alist? tail)))
- (_ #f)))
+ (list-of pair?))
(define serialize-file-like empty-serializer)