diff options
Diffstat (limited to 'gnu/services/getmail.scm')
| -rw-r--r-- | gnu/services/getmail.scm | 12 |
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) |
