~ruther/guix-local: services: fail2ban: Extend profile with fail2ban package.

7d10553db78b0475542b32522b2ab9a3c5b9ea58 — Maxim Cournoyer 6 months ago 6a57156

services: fail2ban: Extend profile with fail2ban package.

* gnu/services/security.scm (fail2ban-service-type): Register
profile-service-type extension.

Change-Id: Ia7d908ba68c82fb7b5f016d4d246112679c49415

patch browse .tar.gz

1 files changed, 8 insertions(+), 4 deletions(-)

M gnu/services/security.scm

M gnu/services/security.scm => gnu/services/security.scm +8 -4

@@ 378,13 378,17 @@ provided as a list of file-like objects."))
   (service-type (name 'fail2ban)
                 (extensions
                  (list (service-extension shepherd-root-service-type
-                                          fail2ban-shepherd-service)))
+                                          fail2ban-shepherd-service)
+                       ;; For the fail2ban-client and fail2ban-regex commands.
+                       (service-extension
+                        profile-service-type
+                        (compose list fail2ban-configuration-fail2ban))))
                 (compose concatenate)
                 (extend (lambda (config jails)
                           (fail2ban-configuration
-                           (inherit config)
-                           (jails (append (fail2ban-configuration-jails config)
-                                          jails)))))
+                            (inherit config)
+                            (jails (append (fail2ban-configuration-jails config)
+                                           jails)))))
                 (default-value (fail2ban-configuration))
                 (description "Run the fail2ban server.")))