diff options
Diffstat (limited to 'gnu/services/getmail.scm')
| -rw-r--r-- | gnu/services/getmail.scm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/gnu/services/getmail.scm b/gnu/services/getmail.scm index fb82d054ca7..19faea782f4 100644 --- a/gnu/services/getmail.scm +++ b/gnu/services/getmail.scm | |||
| @@ -215,17 +215,6 @@ lines.") | |||
| 215 | (parameter-alist '()) | 215 | (parameter-alist '()) |
| 216 | "Extra options to include.")) | 216 | "Extra options to include.")) |
| 217 | 217 | ||
| 218 | (define (serialize-getmail-configuration-file field-name val) | ||
| 219 | (match-record val <getmail-configuration-file> | ||
| 220 | (retriever destination options) | ||
| 221 | #~(string-append | ||
| 222 | "[retriever]\n" | ||
| 223 | #$(serialize-getmail-retriever-configuration #f retriever) | ||
| 224 | "\n[destination]\n" | ||
| 225 | #$(serialize-getmail-destination-configuration #f destination) | ||
| 226 | "\n[options]\n" | ||
| 227 | #$(serialize-getmail-options-configuration #f options)))) | ||
| 228 | |||
| 229 | (define-configuration getmail-configuration-file | 218 | (define-configuration getmail-configuration-file |
| 230 | (retriever | 219 | (retriever |
| 231 | (getmail-retriever-configuration (getmail-retriever-configuration)) | 220 | (getmail-retriever-configuration (getmail-retriever-configuration)) |
| @@ -237,6 +226,17 @@ lines.") | |||
| 237 | (getmail-options-configuration (getmail-options-configuration)) | 226 | (getmail-options-configuration (getmail-options-configuration)) |
| 238 | "Configure getmail.")) | 227 | "Configure getmail.")) |
| 239 | 228 | ||
| 229 | (define (serialize-getmail-configuration-file field-name val) | ||
| 230 | (match-record val <getmail-configuration-file> | ||
| 231 | (retriever destination options) | ||
| 232 | #~(string-append | ||
| 233 | "[retriever]\n" | ||
| 234 | #$(serialize-getmail-retriever-configuration #f retriever) | ||
| 235 | "\n[destination]\n" | ||
| 236 | #$(serialize-getmail-destination-configuration #f destination) | ||
| 237 | "\n[options]\n" | ||
| 238 | #$(serialize-getmail-options-configuration #f options)))) | ||
| 239 | |||
| 240 | (define (serialize-symbol field-name val) "") | 240 | (define (serialize-symbol field-name val) "") |
| 241 | (define (serialize-getmail-configuration field-name val) "") | 241 | (define (serialize-getmail-configuration field-name val) "") |
| 242 | 242 | ||
