aboutsummaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorArun Isaac2021-10-24 15:21:06 +0530
committerArun Isaac2021-10-24 15:21:06 +0530
commit86e287a04343b7b42c1c04f6b125f957b0e669b1 (patch)
treedfd4736529b57c7b33798c0511f4705897abd675 /build-aux
parenta00a8e5e4a9ac6ca9a603c799982bcd46137c3de (diff)
downloadguile-email-86e287a04343b7b42c1c04f6b125f957b0e669b1.tar.gz
guile-email-86e287a04343b7b42c1c04f6b125f957b0e669b1.tar.lz
guile-email-86e287a04343b7b42c1c04f6b125f957b0e669b1.zip
build-aux: Create corpus directory if it does not exist.
* build-aux/pull-corpus.scm (pull-mailing-list): Create corpus directory if it does not exist.
Diffstat (limited to 'build-aux')
-rw-r--r--build-aux/pull-corpus.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/build-aux/pull-corpus.scm b/build-aux/pull-corpus.scm
index bf4129e..2305b8e 100644
--- a/build-aux/pull-corpus.scm
+++ b/build-aux/pull-corpus.scm
@@ -97,6 +97,8 @@
(initialize-archive-size
(make-archive mailing-list (date-year today) (date-month today) #f)))))
+ (unless (file-exists? mailing-list)
+ (mkdir mailing-list))
(stream-for-each pull-archive (stream-take-while out-of-sync? archives)))
(pull-mailing-list "guix-commits")