01/01: hydra: milano-guix-1: Add the Guix Data Service.

[Christopher Baines]

cbaines pushed a commit to branch wip-guix-data-service
in repository maintenance.

commit 25f0498df98dcc9fd19aa1c8a419c8f99c4e4fd8
Author: Christopher Baines <address@hidden>
Date:   Sat Jun 15 08:54:22 2019 +0100

    hydra: milano-guix-1: Add the Guix Data Service.
    
    Along with PostgreSQL that it depends on.
    
    * hydra/milano-guix-1.scm (operating-system)[packages]: Add nss-certs.
    [services] Add PostgreSQL, and the Guix Data Service.
---
 hydra/milano-guix-1.scm | 32 +++++++++++++++++++++++++++++---
 1 file changed, 29 insertions(+), 3 deletions(-)

diff --git a/hydra/milano-guix-1.scm b/hydra/milano-guix-1.scm
index 82b2fdf..91d642a 100644
--- a/hydra/milano-guix-1.scm
+++ b/hydra/milano-guix-1.scm
@@ -3,9 +3,10 @@
 ;; Copyright © 2019 Giovanni Biscuolo <address@hidden>
 ;; Released under the GNU GPLv3 or any later version.
 
-(use-modules (gnu))
-(use-service-modules networking mcron ssh virtualization)
-(use-package-modules screen ssh linux)
+(use-modules (gnu)
+             (guix gexp))
+(use-service-modules databases getmail guix networking mcron ssh 
virtualization)
+(use-package-modules certs screen ssh linux)
 
 ;; The following definition are **almost** copied from dover.scm: a
 ;; quick hack to have a(n almost) self contained config file
@@ -88,6 +89,9 @@
   (users (append %accounts %base-user-accounts))
 
   (packages (cons* btrfs-progs screen openssh strace %base-packages))
+  (packages (cons* btrfs-progs screen openssh strace
+                   nss-certs ; Needed for the Guix Data Service
+                   %base-packages))
 
   ;; Services
   (services
@@ -113,6 +117,28 @@
                       (platforms (lookup-qemu-platforms "arm" "aarch64"))
                       (guix-support? #t)))
 
+            (service postgresql-service-type
+                     (postgresql-configuration
+                      (config-file
+                       (postgresql-config-file
+                        (extra-config
+                         '(("work_mem" "'500MB'")))))))
+
+            (service guix-data-service-type
+                     (guix-data-service-configuration
+                      (getmail-idle-mailboxes '("Commits"))
+                      (commits-getmail-retriever-configuration
+                       (getmail-retriever-configuration
+                        (type "SimpleIMAPSSLRetriever")
+                        (server "imap.cbaines.net")
+                        (port 993)
+                        (username "patchwork")
+                        (password-command
+                         (list (file-append coreutils "/bin/cat")
+                               "/etc/guix-data-service-commits-imap-password"))
+                        (extra-parameters
+                         '((mailboxes . ("Commits"))))))))
+
             (service mcron-service-type
                      (mcron-configuration
                       (jobs (list gc-job btrfs-job)))))