branch master updated: Move mu-debug definition.

[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 2791765  Move mu-debug definition.
2791765 is described below

commit 27917657dd44c91264688f1aa44a805fa022103b
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Feb 22 11:52:24 2021 +0100

    Move mu-debug definition.
    
    * tests/database.scm (mu-debug): Move to ...
    * src/cuirass/utils.scm: ... here.
---
 src/cuirass/utils.scm | 3 +++
 tests/database.scm    | 3 ---
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/cuirass/utils.scm b/src/cuirass/utils.scm
index dfc5dd9..21e0993 100644
--- a/src/cuirass/utils.scm
+++ b/src/cuirass/utils.scm
@@ -57,6 +57,9 @@
 
             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 9736911..3e8173d 100644
--- a/tests/database.scm
+++ b/tests/database.scm
@@ -31,9 +31,6 @@
              (srfi srfi-19)
              (srfi srfi-64))
 
-;; This variable is looked up by 'mu-message-send'.
-(define-public mu-debug 0)
-
 (define (mailer)
   (string-append "sendmail://" (getcwd) "/tests/mail.sh"))