From 86e287a04343b7b42c1c04f6b125f957b0e669b1 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 24 Oct 2021 15:21:06 +0530
Subject: 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.
---
 build-aux/pull-corpus.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'build-aux')

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")
-- 
cgit v1.2.3