diff options
Diffstat (limited to 'gnu/system/privilege.scm')
| -rw-r--r-- | gnu/system/privilege.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gnu/system/privilege.scm b/gnu/system/privilege.scm index d89d5d5d1c3..fe6e60ad7c4 100644 --- a/gnu/system/privilege.scm +++ b/gnu/system/privilege.scm @@ -26,7 +26,9 @@ privileged-program-setgid? privileged-program-user privileged-program-group - privileged-program-capabilities)) + privileged-program-capabilities + + file-like->setuid-program)) ;;; Commentary: ;;; @@ -56,3 +58,9 @@ ;; POSIX capabilities in cap_from_text(3) form (defaults to #f: none). (capabilities privileged-program-capabilities ;string or #f (default #f))) + +(define (file-like->setuid-program program) + "Simple wrapper to facilitate MAPping over a list of file-like objects and +make them setuid, a pattern just common enough to justify a special helper." + (privileged-program (program program) + (setuid? #t))) |