diff options
| author | Arun Isaac | 2021-10-24 15:21:06 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-10-24 15:21:06 +0530 |
| commit | 86e287a04343b7b42c1c04f6b125f957b0e669b1 (patch) | |
| tree | dfd4736529b57c7b33798c0511f4705897abd675 /build-aux | |
| parent | a00a8e5e4a9ac6ca9a603c799982bcd46137c3de (diff) | |
| download | guile-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.scm | 2 |
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") |