services: qbittorrent: Use match-record.

* rosenthal/services/bittorrent.scm (qbittorrent-shepherd-service): Use
match-record.

rosenthal/services/bittorrent.scm

@@ -3,9 +3,9 @@
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 
 (define-module (rosenthal services bittorrent)
-  #:use-module (ice-9 match)
   #:use-module (guix gexp)
   #:use-module (guix packages)
+  #:use-module (guix records)
   #:use-module (gnu packages admin)
   #:use-module (gnu services)
   #:use-module (gnu services configuration)
@@ -55,24 +55,23 @@
         (mkdir-p profile-directory)
         (chown profile-directory (passwd:uid user) (passwd:gid user)))))
 
-(define qbittorrent-shepherd-service
+(define (qbittorrent-shepherd-service config)
-  (match-lambda
+  (match-record config <qbittorrent-configuration>
-    (($ <qbittorrent-configuration> qbittorrent
+    (qbittorrent log-file webui-port profile-directory extra-options)
-                                    log-file webui-port profile-directory
+    (list (shepherd-service
-                                    extra-options)
+           (documentation "Run qbittorrent.")
-     (list (shepherd-service
+           (provision '(qbittorrent))
-            (documentation "Run qbittorrent.")
+           (requirement '(loopback))
-            (provision '(qbittorrent))
+           (start #~(make-forkexec-constructor
-            (requirement '(loopback))
+                     (list #$(file-append qbittorrent "/bin/qbittorrent-nox")
-            (start #~(make-forkexec-constructor
+                           #$(string-append "--webui-port="
-                      (list #$(file-append qbittorrent "/bin/qbittorrent-nox")
+                                            (number->string webui-port))
-                            #$(string-append "--webui-port=" (number->string webui-port))
+                           #$(string-append "--profile=" profile-directory)
-                            #$(string-append "--profile=" profile-directory)
+                           #$@extra-options)
-                            #$@extra-options)
+                     #:user "qbittorrent"
-                      #:user "qbittorrent"
+                     #:group "qbittorrent"
-                      #:group "qbittorrent"
+                     #:log-file #$log-file))
-                      #:log-file #$log-file))
+           (stop #~(make-kill-destructor #:grace-period 1800))))))
-            (stop #~(make-kill-destructor #:grace-period 1800)))))))
 
 (define qbittorrent-service-type
   (service-type