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.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/gnu/services/getmail.scm b/gnu/services/getmail.scm
index b44ca2ae3de..bea61d21a00 100644
--- a/gnu/services/getmail.scm
+++ b/gnu/services/getmail.scm
@@ -16,6 +16,12 @@
16;;; You should have received a copy of the GNU General Public License 16;;; You should have received a copy of the GNU General Public License
17;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. 17;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
18 18
19;;; Commentary:
20;;;
21;;; Service for the getmail mail retriever.
22;;;
23;;; Code:
24
19(define-module (gnu services getmail) 25(define-module (gnu services getmail)
20 #:use-module (gnu services) 26 #:use-module (gnu services)
21 #:use-module (gnu services base) 27 #:use-module (gnu services base)
@@ -41,12 +47,6 @@
41 getmail-configuration 47 getmail-configuration
42 getmail-service-type)) 48 getmail-service-type))
43 49
44;;; Commentary:
45;;;
46;;; Service for the getmail mail retriever.
47;;;
48;;; Code:
49
50(define (uglify-field-name field-name) 50(define (uglify-field-name field-name)
51 (let ((str (symbol->string field-name))) 51 (let ((str (symbol->string field-name)))
52 (string-join (string-split (if (string-suffix? "?" str) 52 (string-join (string-split (if (string-suffix? "?" str)