diff options
| -rw-r--r-- | gnu/services/rsync.scm | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/gnu/services/rsync.scm b/gnu/services/rsync.scm index 96adf94dacd..c72cf9aa74b 100644 --- a/gnu/services/rsync.scm +++ b/gnu/services/rsync.scm | |||
| @@ -84,7 +84,7 @@ please use 'modules' instead~%"))) | |||
| 84 | (sanitize warn-share-field-deprecation) | 84 | (sanitize warn-share-field-deprecation) |
| 85 | (default *unspecified*)) | 85 | (default *unspecified*)) |
| 86 | (modules rsync-configuration-actual-modules ;list of <rsync-module> | 86 | (modules rsync-configuration-actual-modules ;list of <rsync-module> |
| 87 | (default %default-modules)) ;TODO: eventually remove default | 87 | (default '())) |
| 88 | (share-path rsync-configuration-share-path ; string | 88 | (share-path rsync-configuration-share-path ; string |
| 89 | (sanitize warn-share-field-deprecation) | 89 | (sanitize warn-share-field-deprecation) |
| 90 | (default *unspecified*)) | 90 | (default *unspecified*)) |
| @@ -121,13 +121,6 @@ please use 'modules' instead~%"))) | |||
| 121 | (timeout rsync-module-timeout ;integer | 121 | (timeout rsync-module-timeout ;integer |
| 122 | (default 300))) | 122 | (default 300))) |
| 123 | 123 | ||
| 124 | (define %default-modules | ||
| 125 | ;; Default modules, provided for backward compatibility. | ||
| 126 | (list (rsync-module (name "files") | ||
| 127 | (file-name "/srv/rsyncd") | ||
| 128 | (comment "Rsync share") | ||
| 129 | (read-only? #f)))) ;yes, that was the default | ||
| 130 | |||
| 131 | (define (rsync-configuration-modules config) | 124 | (define (rsync-configuration-modules config) |
| 132 | (match-record config <rsync-configuration> | 125 | (match-record config <rsync-configuration> |
| 133 | (modules | 126 | (modules |
