@@ -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 '()))))