summaryrefslogtreecommitdiff
path: root/gnu/build
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-02-08 23:29:06 +0100
committerLudovic Courtès <ludo@gnu.org>2016-02-08 23:46:46 +0100
commit6eb439070a12e62e72c13f189ad71394226e6036 (patch)
tree4738bc8fe41dcac47c90d024e28fdcee67f07e7f /gnu/build
parentf2e4805b7e80e31cc23b22a9f082b74d0547fc5f (diff)
file-systems: Spawn a Bournish REPL upon fsck failure.
Fixes <http://bugs.gnu.org/22588>. Reported by Mark H Weaver <mhw@netris.org>. * 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.
Diffstat (limited to 'gnu/build')
-rw-r--r--gnu/build/file-systems.scm6
1 files changed, 4 insertions, 2 deletions
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