02/02: hydra/berlin: Add mumi/devel.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository maintenance.

commit 37538c56d94967bcb6f69190035a93b25cd3ac30
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Tue Jun 16 22:20:27 2020 +0200

    hydra/berlin: Add mumi/devel.
    
    * hydra/berlin.scm (mumi/devel): New variable.
    Use it in the mumi service.
---
 hydra/berlin.scm | 31 +++++++++++++++++++++++++++++--
 1 file changed, 29 insertions(+), 2 deletions(-)

diff --git a/hydra/berlin.scm b/hydra/berlin.scm
index 7acdca6..abfc6bb 100644
--- a/hydra/berlin.scm
+++ b/hydra/berlin.scm
@@ -2,12 +2,15 @@
 ;; hosted at the MDC.
 
 (use-modules (gnu) (guix) (sysadmin services) (sysadmin people) (sysadmin dns)
-             (sysadmin web))
+             (sysadmin web)
+             (guix git-download)
+             (srfi srfi-1))
 (use-service-modules base databases dns monitoring networking admin shepherd)
 (use-package-modules admin certs emacs linux mail monitoring
                      ssh tls tor vim package-management
                      version-control
-                     web wget ci rsync)
+                     web wget ci rsync
+                     guile-xyz)
 
 (define %sysadmins
   ;; The sysadmins.
@@ -98,6 +101,29 @@ Happy hacking!\n"))
                         (dirname (canonicalize-path 
"/run/current-system/initrd")))))))
 
 
+(define-public mumi-devel
+  (let ((commit "f06b3d7de137b3b1bf95e02de747bdd663bb61bd")
+        (revision "6"))
+    (package (inherit mumi)
+             (name "mumi")
+             (version (git-version "0.0.1" revision commit))
+             (source (origin
+                       (method git-fetch)
+                       (uri (git-reference
+                             (url "https://git.elephly.net/software/mumi.git";)
+                             (commit commit)))
+                       (file-name (git-file-name name version))
+                       (sha256
+                        (base32
+                         
"0yn1ry2zl9s7cbaz1znnxhx4i3ja6bxw1qmmfbzajsj2zic7cxs8"))))
+             (inputs
+              `(("guile-fibers" ,(package (inherit guile-fibers)
+                                          (arguments 
(substitute-keyword-arguments
+                                                         (package-arguments 
guile-fibers)
+                                                       ((#:tests? _ #f) #f)))))
+                ,@(alist-delete "guile-fibers" (package-inputs mumi)))))))
+
+
 (operating-system
   (host-name "berlin.guix.gnu.org")
   (timezone "Europe/Berlin")
@@ -305,6 +331,7 @@ Happy hacking!\n"))
              (service gwl-web-service-type)
              (service mumi-service-type
                       (mumi-configuration
+                       (mumi mumi-devel)
                        (sender "issues.guix.gnu.org@elephly.net")
                        (smtp "sendmail:///var/mumi/mumi-mailer")))
              ;; For the Mumi mailer queue