gnu: shepherd: Move guile-fibers to propagated inputs.

Fixes guix/guix#1079.
Fixes <https://issues.guix.gnu.org/75833>.

* gnu/packages/admin.scm (shepherd-0.10, shepherd-1.0):
Move guile-fibers from inputs to propagated-inputs.
Use new inheritance style.
(shepherd-for-home): Don’t inherit propagated-inputs.
* gnu/services/shepherd.scm (scm->go): Find guile-fibers in propagated-inputs
instead of inputs.

Reported-by: Tomas Volf <~@wolfsden.cz>
Change-Id: I9a406ba763408c064df0e68928564888b76b43b5
Signed-off-by: Noé Lopez <noelopez@free.fr>

2 files changed, 11 insertions, 8 deletions

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 36ffcfff8db..7d506616cd6 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -565,8 +565,8 @@ and provides a \"top-like\" mode (monitoring).")
                                  (target-riscv64?))
                              guile-fibers-1.1
                              guile-fibers-1.3))) ;pinned version to avoid rebuilds
-    (inputs (list guile-3.0
-                  (this-package-native-input "guile-fibers")))
+    (propagated-inputs (list (this-package-native-input "guile-fibers")))
+    (inputs (list guile-3.0))
     (synopsis "System service manager")
     (description
      "The GNU Shepherd is a daemon-managing daemon, meaning that it supervises
@@ -618,7 +618,7 @@ interface and is based on GNU Guile.")
                                 (dirname fibers-go)))))))
                    #~%standard-phases)))
     (native-inputs
-     (modify-inputs (package-native-inputs shepherd-0.10)
+     (modify-inputs native-inputs
        (replace "guile-fibers"
          ;; Work around <https://codeberg.org/guile/fibers/issues/89>.
          ;; This affects any system without a functional real-time
@@ -628,10 +628,12 @@ interface and is based on GNU Guile.")
                  (target-riscv64?))
              guile-fibers-1.1
              guile-fibers)))) ;use latest guile-fibers available
-    (inputs
-     (modify-inputs (package-inputs shepherd-0.10)
+    (propagated-inputs
+     (modify-inputs propagated-inputs
        (replace "guile-fibers"
-                (this-package-native-input "guile-fibers"))
+         (this-package-native-input "guile-fibers"))))
+    (inputs
+     (modify-inputs inputs
        (append gzip zstd)))))
 
 (define-public shepherd shepherd-0.10)
@@ -663,7 +665,8 @@ interface and is based on GNU Guile.")
        (synopsis
         "The Shepherd for Guix Home, without @command{halt} and @command{reboot}")
        (native-inputs '())
-       (inputs (list base))))))
+       (inputs (list base))
+       (propagated-inputs '())))))
 
 (define-public shepherd-run
   (package
diff --git a/gnu/services/shepherd.scm b/gnu/services/shepherd.scm
index 89c8fd3a135..b1e8b040375 100644
--- a/gnu/services/shepherd.scm
+++ b/gnu/services/shepherd.scm
@@ -398,7 +398,7 @@ stored."
 and return the resulting '.go' file. SHEPHERD is used as shepherd package."
   (define shepherd&co
     (cons shepherd
-          (match (lookup-package-input shepherd "guile-fibers")
+          (match (lookup-package-propagated-input shepherd "guile-fibers")
             (#f '())
             (fibers (list fibers)))))