bug#60657: Rethinking how service extensions work

[Ludovic Courtès]

Hi Bruno,

Bruno Victal <mirai@makinata.eu> skribis:

> The current situation with services in Guix is that service extensions do not 
> care about dependencies.

This is the result of “services” being unrelated to “Shepherd services”,
as noted in the manual (info "(guix) Services").

> This can result in cryptic errors as seen in [1].
>
> [1] https://issues.guix.gnu.org/57589#12
>
> In [1], the issue arises from using activation-service-type to create 
> files/directories for services
> when these should be either (1) shepherd one-shot services or moved into the 
> 'start' procedure of the service.
> 'activation-service-type' should only be used for doing things "listed on its 
> label", that is, performing
> actions at boot-time or after a system reconfigure.

Right.

As we once discussed on IRC, the conclusion to me is that some of the
code currently implemented as activation snippets should rather be
implemented either as part of the ‘start’ method of the corresponding
Shepherd service, or as a one-shot Shepherd service that the main
service would depend on.

> But both solutions (1) and (2) are still not enough as the directories 
> themselves might not yet
> be available and the services must be aware of this fact and wait for them to 
> be ready. One example
> would be a network dependent mount or a simple service that mounts a volume 
> such as:
>
> (simple-service 'mount-overlayfs shepherd-root-service-type
>                 (list (shepherd-service (requirement '(foo-mount))
>                                         (provision '(overlayfs-foo))
>                                         (documentation "Mount OverlayFS.")
>                                         (one-shot? #t)
>                                         (start (let ((util-linux (@ (gnu 
> packages linux) util-linux)))
>                                                  #~(lambda _
>                                                      (system* #$(file-append 
> util-linux "/bin/mount")
>                                                               "-t" "overlay"
>                                                               "-o" 
> (string-append "noatime,nodev,noexec,ro,"
>                                                                               
>     "lowerdir="
>                                                                               
>     (string-join '("/srv/foo/overlays/top-layer"
>                                                                               
>                    "/srv/foo/overlays/layer2"
>                                                                               
>                    "/srv/foo/overlays/layer1"
>                                                                               
>                    "/media/foo-base") ":"))
>                                                               "none" 
> "/media/foo" )))))))

Note that this should prolly be declared as a ‘file-system’ rather than
as a custom service.  That way, it would get a “standard” Shepherd
service.

There are cases where we add explicit dependencies on
‘file-system-/media/foo’ or similar.  <file-system> has a ‘dependencies’
field specifically for this purpose (info "(guix) File Systems").

Would that work for you?

HTH,
Ludo’.