[bug#59336] [PATCH 5/6] gnu: Add apparmor-profiles.

[Hilton Chain via Guix-patches via <guix-patches@gnu.org>]

* gnu/packages/apparmor.scm (apparmor-profiles): New variable.
---
 gnu/packages/apparmor.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/gnu/packages/apparmor.scm b/gnu/packages/apparmor.scm
index b753ffc88a..573666c27f 100644
--- a/gnu/packages/apparmor.scm
+++ b/gnu/packages/apparmor.scm
@@ -182,3 +182,20 @@ (define-public apparmor-utils
       (inputs
        (modify-inputs (package-inputs base)
          (append apparmor-parser))))))
+
+(define-public apparmor-profiles
+  (let ((base apparmor))
+    (package
+      (inherit base)
+      (name "apparmor-profiles")
+      (arguments
+       (append
+        (list #:tests? #f)              ;Needs an AppArmor-enabled system.
+        (substitute-keyword-arguments (package-arguments base)
+          ((#:phases phases)
+           #~(modify-phases #$phases
+               (replace 'change-directory
+                 (lambda _
+                   (chdir "profiles"))))))))
+      (native-inputs (list which))
+      (inputs '()))))
-- 
2.38.1