diff options
| author | Théo Tyburn <theo.tyburn@posteo.net> | 2026-06-03 10:56:10 +0200 |
|---|---|---|
| committer | Nguyễn Gia Phong <cnx@loang.net> | 2026-08-31 11:00:19 +0900 |
| commit | c62ebcd02c2eb190ab5dc157475ef4a93a1c7581 (patch) | |
| tree | f178f262874978ac0be45e5499db5cc2d63248fe /gnu/system/setuid.scm | |
| parent | 30cb1f541eb99b0fbbec1f8f29796151103c5f2b (diff) | |
doc: Move Commentary above module definition.
Merges: https://codeberg.org/guix/guix/pulls/9052
Reviewed-by: Ludovic Courtès <ludo@gnu.org>
Reviewed-by: Maxim Cournoyer <maxim@guixotic.coop>
Signed-off-by: Nguyễn Gia Phong <cnx@loang.net>
Diffstat (limited to 'gnu/system/setuid.scm')
| -rw-r--r-- | gnu/system/setuid.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gnu/system/setuid.scm b/gnu/system/setuid.scm index 097797ce8d7..dab31dad5d2 100644 --- a/gnu/system/setuid.scm +++ b/gnu/system/setuid.scm | |||
| @@ -17,6 +17,14 @@ | |||
| 17 | ;;; You should have received a copy of the GNU General Public License | 17 | ;;; You should have received a copy of the GNU General Public License |
| 18 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | 18 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
| 19 | 19 | ||
| 20 | ;;; Commentary: | ||
| 21 | ;;; | ||
| 22 | ;;; Do not use this module in new code. It used to define data structures | ||
| 23 | ;;; representing setuid/setgid programs, but is now a mere compatibility shim | ||
| 24 | ;;; wrapping a subset of (gnu system privilege). | ||
| 25 | ;;; | ||
| 26 | ;;; Code: | ||
| 27 | |||
| 20 | (define-module (gnu system setuid) | 28 | (define-module (gnu system setuid) |
| 21 | #:use-module (gnu system privilege) | 29 | #:use-module (gnu system privilege) |
| 22 | #:use-module (ice-9 match) | 30 | #:use-module (ice-9 match) |
| @@ -30,14 +38,6 @@ | |||
| 30 | setuid-program-user | 38 | setuid-program-user |
| 31 | setuid-program-group)) | 39 | setuid-program-group)) |
| 32 | 40 | ||
| 33 | ;;; Commentary: | ||
| 34 | ;;; | ||
| 35 | ;;; Do not use this module in new code. It used to define data structures | ||
| 36 | ;;; representing setuid/setgid programs, but is now a mere compatibility shim | ||
| 37 | ;;; wrapping a subset of (gnu system privilege). | ||
| 38 | ;;; | ||
| 39 | ;;; Code: | ||
| 40 | |||
| 41 | (define-syntax setuid-program | 41 | (define-syntax setuid-program |
| 42 | (lambda (fields) | 42 | (lambda (fields) |
| 43 | (syntax-case fields () | 43 | (syntax-case fields () |
