From 6eb439070a12e62e72c13f189ad71394226e6036 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 8 Feb 2016 23:29:06 +0100 Subject: file-systems: Spawn a Bournish REPL upon fsck failure. Fixes . Reported by Mark H Weaver . * gnu/build/file-systems.scm (check-file-system): Pass %BOURNISH-LANGUAGE as the argument to 'start-repl'. * gnu/services.scm (activation-script): Add (guix build bournish). * gnu/services/base.scm (file-system-shepherd-service)[imported-modules]: Likewise. * gnu/system/linux-container.scm (container-script): Likewise. * gnu/system/vm.scm (expression->derivation-in-linux-vm): Likewise. --- gnu/build/file-systems.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gnu/build/file-systems.scm') diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm index f8b8697b46..58ccf599d6 100644 --- a/gnu/build/file-systems.scm +++ b/gnu/build/file-systems.scm @@ -18,6 +18,7 @@ (define-module (gnu build file-systems) #:use-module (guix build utils) + #:use-module (guix build bournish) #:use-module (rnrs io ports) #:use-module (rnrs bytevectors) #:use-module (ice-9 match) @@ -352,9 +353,10 @@ the following: (sleep 3) (reboot)) (code - (format (current-error-port) "'~a' exited with code ~a on ~a; spawning REPL~%" + (format (current-error-port) "'~a' exited with code ~a on ~a; \ +spawning Bourne-like REPL~%" fsck code device) - (start-repl))))) + (start-repl %bournish-language))))) (define (mount-flags->bit-mask flags) "Return the number suitable for the 'flags' argument of 'mount' that -- cgit v1.2.3