[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: Move mu-debug to parameters module.
From: |
Mathieu Othacehe |
Subject: |
branch master updated: Move mu-debug to parameters module. |
Date: |
Mon, 22 Feb 2021 08:15:49 -0500 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: Move mu-debug to parameters module.,
Mathieu Othacehe <=