me/guix
Archived
1
0
Fork 0
Code Activity

services: connman: Use match-record and export accessors.

Browse source 
* gnu/services/networking.scm (connman-shepherd-service): Use match-record.
(connman-configuration-connman, connman-configuration-disable-vpn?)
(connman-configuration-iwd?): Export accessors.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Bruno Victal 2023-03-07 12:44:00 +00:00 • committed by Ludovic Courtès
parent 1e1b3ec012
commit 1545dab1fa
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 24 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/services/networking.scm
View file

@ -150,6 +150,9 @@
connman-configuration
connman-configuration?
connman-configuration-connman
connman-configuration-disable-vpn?
connman-configuration-iwd?
connman-service-type
modem-manager-configuration
@ -1300,12 +1303,7 @@ wireless networking."))))
(mkdir-p "/var/lib/connman-vpn/"))))))
(define (connman-shepherd-service config)
"Return a shepherd service for Connman"
(and
(connman-configuration? config)
(let ((connman (connman-configuration-connman config))
(disable-vpn? (connman-configuration-disable-vpn? config))
(iwd? (connman-configuration-iwd? config)))
(match-record config <connman-configuration> (connman disable-vpn? iwd?)
(list (shepherd-service
(documentation "Run Connman")
(provision '(networking))
@ -1326,7 +1324,7 @@ wireless networking."))))
;; to avoid spamming the console (XXX: for some reason
;; redirecting to /dev/null doesn't work.)
#:log-file "/var/log/connman.log"))
(stop #~(make-kill-destructor)))))))
(stop #~(make-kill-destructor))))))
(define %connman-log-rotation
(list (log-rotation