diff --git a/operating-systems/buer/rules.scm b/operating-systems/buer/rules.scm index 7ebaa4e..d29ab9d 100644 --- a/operating-systems/buer/rules.scm +++ b/operating-systems/buer/rules.scm @@ -35,10 +35,12 @@ (command "herd") (args (list action)))) `("status" "detailed-status")) - (list (permit (identity ":wheel") + (map (lambda (action) + (permit (identity ":wheel") (nopass? #t) (command "herd") - (args `("trigger" "snapshot-/home")))) + (args `(,action "snapshot-/home")))) + `("doc" "status" "trigger")) (flat-map (lambda (service action) (permit (identity ":wheel") (nopass? #t)