branch master updated: Move mu-debug to parameters module.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new 543e26a  Move mu-debug to parameters module.
543e26a is described below

commit 543e26addc6e2304611e2feb8dd3a5a0646507b6
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Feb 22 14:14:15 2021 +0100

    Move mu-debug to parameters module.
    
    * src/cuirass/mail.scm (mu-debug): Remove it.
    * src/cuirass/utils.scm (mu-debug): Ditto.
    * src/cuirass/parameters.scm (mu-debug): New variable.
    * src/cuirass/remote-server.scm (start-fetch-worker): Force parameters 
module
    load.
    * tests/database.scm: Load parameters module.
---
 src/cuirass/mail.scm          | 3 ---
 src/cuirass/parameters.scm    | 3 +++
 src/cuirass/remote-server.scm | 1 +
 src/cuirass/utils.scm         | 3 ---
 tests/database.scm            | 1 +
 5 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/cuirass/mail.scm b/src/cuirass/mail.scm
index 3706e6b..b024a88 100644
--- a/src/cuirass/mail.scm
+++ b/src/cuirass/mail.scm
@@ -24,9 +24,6 @@
   #:use-module (srfi srfi-19)
   #:export (send-email))
 
-;; This variable is looked up by 'mu-message-send'.
-(define-public mu-debug 0)
-
 ;; Copied from (mumi send-email).
 (define* (compute-message-id message #:optional seed)
   "Return a message ID string."
diff --git a/src/cuirass/parameters.scm b/src/cuirass/parameters.scm
index fb580bf..9aec051 100644
--- a/src/cuirass/parameters.scm
+++ b/src/cuirass/parameters.scm
@@ -25,6 +25,9 @@
             %mastodon-instance-url
             %mastodon-instance-token))
 
+;; This variable is looked up by 'mu-message-send'.
+(define-public mu-debug 0)
+
 ;; The URL of the Cuirass web server.  This is useful to send absolute links
 ;; within notifications.
 (define %cuirass-url
diff --git a/src/cuirass/remote-server.scm b/src/cuirass/remote-server.scm
index 5850e0c..6003033 100644
--- a/src/cuirass/remote-server.scm
+++ b/src/cuirass/remote-server.scm
@@ -320,6 +320,7 @@ downloading build outputs.  It communicates with the remote 
server using a ZMQ
 socket."
   (call-with-new-thread
    (lambda ()
+     (use-modules (cuirass parameters)) ;XXX: Needed for mu-debug variable.
      (set-thread-name name)
      (let ((socket (zmq-fetch-worker-socket)))
        (let loop ()
diff --git a/src/cuirass/utils.scm b/src/cuirass/utils.scm
index 21e0993..dfc5dd9 100644
--- a/src/cuirass/utils.scm
+++ b/src/cuirass/utils.scm
@@ -57,9 +57,6 @@
 
             date->rfc822-str))
 
-;; This variable is looked up by 'mu-message-send'.
-(define-public mu-debug 0)
-
 (define (alist? obj)
   "Return #t if OBJ is an alist."
   (and (list? obj)
diff --git a/tests/database.scm b/tests/database.scm
index 3e8173d..f591e7a 100644
--- a/tests/database.scm
+++ b/tests/database.scm
@@ -22,6 +22,7 @@
 
 (use-modules (cuirass database)
              (cuirass notification)
+             (cuirass parameters)
              (cuirass remote)
              (cuirass utils)
              ((guix utils) #:select (call-with-temporary-output-file))