guix/guix-cuirass
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git synced 2023-12-14 06:03:04 +01:00
Code Issues Releases Wiki Activity

Move mu-debug definition.

Browse source 
* tests/database.scm (mu-debug): Move to ...
* src/cuirass/utils.scm: ... here.
This commit is contained in:
Mathieu Othacehe 2021-02-22 11:52:24 +01:00
parent 3e65617409
commit 27917657dd
No known key found for this signature in database
GPG key ID: 8354763531769CA6
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/cuirass/utils.scm
View file

@ -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)

3
tests/database.scm
View file

@ -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"))