[no subject]

[Mathieu Othacehe]

branch: master
commit aa9099e4df63760c478ac1e768d642da518aa8d9
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Sun Feb 21 09:15:39 2021 +0100

    Move date->rfc822-str to utils.scm.
    
    * src/cuirass/rss.scm (date->rfc822-str): Move it to ...
    * src/cuirass/utils.scm: ... here.
---
 src/cuirass/rss.scm   | 4 +---
 src/cuirass/utils.scm | 8 +++++++-
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/cuirass/rss.scm b/src/cuirass/rss.scm
index b5e8797..20fa7ba 100644
--- a/src/cuirass/rss.scm
+++ b/src/cuirass/rss.scm
@@ -18,6 +18,7 @@
 
 (define-module (cuirass rss)
   #:use-module (cuirass database)
+  #:use-module (cuirass utils)
   #:use-module (srfi srfi-19)
   #:use-module (srfi srfi-26)
   #:use-module (sxml simple)
@@ -126,9 +127,6 @@ list ATTRS and the child nodes in BODY."
     (lambda (port)
       (sxml->html sxml port))))
 
-(define (date->rfc822-str date)
-  (date->string date "~a, ~d ~b ~Y ~T ~z"))
-
 (define* (build->rss-item build)
   "Convert BUILD into an RSS <item> node."
   (let* ((id       (assq-ref build #:id))
diff --git a/src/cuirass/utils.scm b/src/cuirass/utils.scm
index 892419a..dfc5dd9 100644
--- a/src/cuirass/utils.scm
+++ b/src/cuirass/utils.scm
@@ -30,6 +30,7 @@
   #:use-module (rnrs bytevectors)
   #:use-module (system foreign)
   #:use-module (srfi srfi-1)
+  #:use-module (srfi srfi-19)
   #:use-module (json)
   #:use-module (fibers)
   #:use-module (fibers channels)
@@ -52,7 +53,9 @@
             %non-blocking
             non-blocking
             essential-task
-            bytevector-range))
+            bytevector-range
+
+            date->rfc822-str))
 
 (define (alist? obj)
   "Return #t if OBJ is an alist."
@@ -317,3 +320,6 @@ die silently while the rest of the program keeps going."
                 (range   (pointer->bytevector pointer count)))
            (hashq-set! %weak-references range bv)
            range))))
+
+(define (date->rfc822-str date)
+  (date->string date "~a, ~d ~b ~Y ~T ~z"))