summaryrefslogtreecommitdiff
path: root/gnu/services/getmail.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/services/getmail.scm')
-rw-r--r--gnu/services/getmail.scm22
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