diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm
index 16353682dd..0e7771c955 100644
--- a/gnu/packages/backup.scm
+++ b/gnu/packages/backup.scm
@@ -40,6 +40,7 @@
 (define-module (gnu packages backup)
   #:use-module (guix packages)
   #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix gexp)
   #:use-module (guix git-download)
   #:use-module (guix download)
   #:use-module (guix utils)
@@ -1198,45 +1199,46 @@ (define-public vorta
                 "1cl7kyh14h38xavbq23b8ifvk8abkiqdkpgaxfxvd223fm02zz26"))))
     (build-system python-build-system)
     (arguments
-     `(#:imported-modules ((guix build qt-utils)
+     (list
+      #:imported-modules `((guix build qt-utils)
                            (guix build cmake-build-system)
                            (guix build qt-build-system)
                            ,@%python-build-system-modules)
-       #:modules ((guix build utils)
+      #:modules '((guix build utils)
                   (guix build python-build-system)
                   ((guix build qt-build-system) #:prefix qt:))
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'patch-borg-path
-           (lambda* (#:key inputs #:allow-other-keys)
-             (substitute* "src/vorta/borg/borg_job.py"
-               (("which\\('borg'\\)")
-                (string-append "which('" ,#$(this-package-input borg)
-                               "/bin/borg')")))))
-         ;; XXX This phase tries to write to $HOME
-         (add-before 'sanity-check 'set-HOME
-           (lambda _
-             (setenv "HOME" "/tmp")))
-         ;; Otherwise, the user interface's icons will be missing.
-         (add-after 'wrap 'qt-wrap
-           (assoc-ref qt:%standard-phases 'qt-wrap)))))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-borg-path
+            (lambda* (#:key inputs #:allow-other-keys)
+              (substitute* "src/vorta/borg/borg_job.py"
+                (("which\\('borg'\\)")
+                 (string-append "which('" #$(this-package-input borg)
+                                "/bin/borg')")))))
+          ;; XXX This phase tries to write to $HOME
+          (add-before 'sanity-check 'set-HOME
+            (lambda _
+              (setenv "HOME" "/tmp")))
+          ;; Otherwise, the user interface's icons will be missing.
+          (add-after 'wrap 'qt-wrap
+            (assoc-ref qt:%standard-phases 'qt-wrap)))))
     (native-inputs
-      (list python-pytest-mock
-            python-pytest-qt
-            python-pytest-runner
-            python-setuptools-git))
+     (list python-pytest-mock
+           python-pytest-qt
+           python-pytest-runner
+           python-setuptools-git))
     (inputs
-      (list borg
-            python-appdirs
-            python-dateutil
-            python-keyring
-            python-paramiko
-            python-peewee
-            python-psutil
-            python-pyqt
-            python-secretstorage
-            ;; XXX This is included so that the qt-wrap phase picks it up.
-            qtsvg))
+     (list borg
+           python-appdirs
+           python-dateutil
+           python-keyring
+           python-paramiko
+           python-peewee
+           python-psutil
+           python-pyqt
+           python-secretstorage
+           ;; XXX This is included so that the qt-wrap phase picks it up.
+           qtsvg))
     (home-page "https://github.com/borgbase/vorta")
     (synopsis "Graphical backup client based on BorgBackup")
     (description "Vorta is a graphical backup client based on the Borg backup

Generated by Ricardo Wurmus using scpaste at Sun Dec 19 20:16:06 2021. CET. (original)