From 8a29dc07a4b62ee480490137592cf02c33b1799f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 21 May 2017 11:49:07 +0200
Subject: [PATCH] guix system: Don't warn about old distros for "guix system
 init".

* guix/scripts/system.scm (process-action): Don't call
'warn-about-old-distro' when ACTION is 'init' or 'build'.
---
 guix/scripts/system.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 6977a57844..ede158c17c 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -847,8 +847,10 @@ resulting from command-line parsing."
             ((shepherd-graph)
              (export-shepherd-graph os (current-output-port)))
             (else
-             (warn-about-old-distro #:suggested-command
-                                    "guix system reconfigure")
+             (unless (memq action '(build init))
+               (warn-about-old-distro #:suggested-command
+                                      "guix system reconfigure"))
+
              (perform-action action os
                              #:dry-run? dry?
                              #:derivations-only? (assoc-ref opts