From mboxrd@z Thu Jan 1 00:00:00 1970 From: Danny Milosavljevic Subject: bug#25917: [PATCH] services: Don't check filesystem even if #:check? if not #:needed-for-boot. Date: Sun, 12 Mar 2017 17:56:04 +0100 Message-ID: <20170312165604.1273-1-dannym@scratchpost.org> References: <87wpbw83ev.fsf@gnu.org> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:38041) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cn6nu-0006hO-8C for bug-guix@gnu.org; Sun, 12 Mar 2017 12:57:11 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cn6np-0005a7-T3 for bug-guix@gnu.org; Sun, 12 Mar 2017 12:57:10 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:54615) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cn6np-0005ZB-QZ for bug-guix@gnu.org; Sun, 12 Mar 2017 12:57:05 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1cn6nm-0008Ho-Ai for bug-guix@gnu.org; Sun, 12 Mar 2017 12:57:02 -0400 Sender: "Debbugs-submit" Resent-Message-ID: In-Reply-To: <87wpbw83ev.fsf@gnu.org> List-Id: Bug reports for GNU Guix List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org Sender: "bug-Guix" To: 25917@debbugs.gnu.org * gnu/services/base.scm (file-system-shepherd-service): If not #:needed-for-boot, don't check filesystem even if #:check? . --- gnu/services/base.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 5298a11f6..2628b718f 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -274,6 +274,7 @@ FILE-SYSTEM." (options (file-system-options file-system)) (check? (file-system-check? file-system)) (create? (file-system-create-mount-point? file-system)) + (needed-for-boot? (file-system-needed-for-boot? file-system)) (dependencies (file-system-dependencies file-system))) (and (file-system-mount? file-system) (with-imported-modules '((gnu build file-systems) @@ -300,7 +301,7 @@ FILE-SYSTEM." (lambda () (mount-file-system `(#$device #$title #$target #$type #$flags - #$options #$check?) + #$options #$(and check? needed-for-boot?)) #:root "/")) (lambda () (setenv "PATH" $PATH)))