gnu: guix-build-coordinator: Neaten up the package definitions.

Remove duplication and redundant append calls.

* gnu/packages/package-management.scm (guix-build-coordinator)[inputs]: Always
add sqitch.
[propagated-inputs]: Always add guile-fibers-next.
(guix-build-coordinator-agent-only)[arguments]: Remove unnecessary duplication
of phases.
[propagated-inputs]: Remove unnecessary append.

gnu/packages/package-management.scm

@@ -1474,15 +1474,11 @@ (define-public guix-build-coordinator
              guile-lib
              (first (assoc-ref (package-native-inputs guix) "guile"))))
       (inputs
-       (append
        (list (first (assoc-ref (package-native-inputs guix) "guile"))
              sqlite
-              bash-minimal)
+             bash-minimal
-        (if (hurd-target?)
+             sqitch))
-            '()
-            (list sqitch))))
       (propagated-inputs
-       (append
        (list guile-prometheus
              guile-gcrypt
              guile-json-4
@@ -1491,10 +1487,8 @@ (define-public guix-build-coordinator
              guile-zlib
              guile-sqlite3
              guix
-              guile-gnutls)
+             guile-gnutls
-        (if (hurd-target?)
+             guile-fibers-next))
-            '()
-            (list guile-fibers-next))))
       (home-page "https://git.cbaines.net/guix/build-coordinator/")
       (synopsis "Tool to help build derivations")
       (description
@@ -1508,62 +1502,12 @@ (define-public guix-build-coordinator/agent-only
     (inherit guix-build-coordinator)
     (name "guix-build-coordinator-agent-only")
     (arguments
-     `(#:modules (((guix build guile-build-system)
+     (list
+      #:modules `(((guix build guile-build-system)
                    #:select (target-guile-effective-version))
                   ,@%gnu-build-system-modules)
-       #:imported-modules ((guix build guile-build-system)
+      #:imported-modules `((guix build guile-build-system)
-                           ,@%gnu-build-system-modules)
+                           ,@%gnu-build-system-modules)))
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'build 'set-GUILE_AUTO_COMPILE
-           (lambda _
-             ;; To avoid warnings relating to 'guild'.
-             (setenv "GUILE_AUTO_COMPILE" "0")
-             #t))
-         (add-after 'install 'wrap-executable
-           (lambda* (#:key inputs outputs target #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (bin (string-append out "/bin"))
-                    (guile (assoc-ref inputs "guile"))
-                    (version (target-guile-effective-version))
-                    (scm (string-append out "/share/guile/site/" version))
-                    (go  (string-append out "/lib/guile/" version "/site-ccache")))
-               (for-each
-                (lambda (file)
-                  (simple-format (current-error-port) "wrapping: ~A\n" file)
-                  (let ((guile-inputs (list
-                                       "guile-json"
-                                       "guile-gcrypt"
-                                       "guix"
-                                       "guile-prometheus"
-                                       "guile-lib"
-                                       "guile-lzlib"
-                                       "guile-zlib"
-                                       "guile-sqlite3"
-                                       "guile-gnutls")))
-                    (wrap-program file
-                      `("PATH" ":" prefix (,bin))
-                      `("GUILE_LOAD_PATH" ":" prefix
-                        (,scm ,(string-join
-                                (map (lambda (input)
-                                       (simple-format
-                                        #f "~A/share/guile/site/~A"
-                                        (assoc-ref inputs input)
-                                        version))
-                                     guile-inputs)
-                                ":")))
-                      `("GUILE_LOAD_COMPILED_PATH" ":" prefix
-                        (,go ,(string-join
-                               (map (lambda (input)
-                                      (simple-format
-                                       #f "~A/lib/guile/~A/site-ccache"
-                                       (assoc-ref inputs input)
-                                       version))
-                                    guile-inputs)
-                               ":"))))))
-                (find-files bin)))
-             #t))
-         (delete 'strip))))             ; As the .go files aren't compatible
     (native-inputs
      (list pkg-config
            autoconf
@@ -1581,7 +1525,6 @@ (define-public guix-build-coordinator/agent-only
      (list (first (assoc-ref (package-native-inputs guix) "guile"))
            bash-minimal))
     (propagated-inputs
-     (append
      (list guile-prometheus
            guile-gcrypt
            guile-json-4
@@ -1589,7 +1532,7 @@ (define-public guix-build-coordinator/agent-only
            guile-lzlib
            guile-zlib
            guix
-               guile-gnutls)))
+           guile-gnutls))
     (description
      "The Guix Build Coordinator helps with performing lots of builds across
 potentially many machines, and with doing something with the results and