civodul pushed a commit to branch master in repository guix. commit a48d34504181e2f14cef3a5514d2319e60453a79 Author: Ludovic Courtès <l...@gnu.org> Date: Fri May 18 10:11:17 2018 +0200
file-systems: Do not export <file-system>. * gnu/system/file-systems.scm (<file-system>): Do not export. * gnu/system.scm (operating-system-root-file-system): Use an accessor instead of 'match'. --- gnu/system.scm | 5 ++--- gnu/system/file-systems.scm | 3 +-- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/gnu/system.scm b/gnu/system.scm index 1cf00aa..1052e93 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -842,9 +842,8 @@ hardware-related operations as necessary when booting a Linux container." (define (operating-system-root-file-system os) "Return the root file system of OS." - (find (match-lambda - (($ <file-system> device title "/") #t) - (x #f)) + (find (lambda (fs) + (string=? "/" (file-system-mount-point fs))) (operating-system-file-systems os))) (define (operating-system-initrd-file os) diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm index d2acd70..93289db 100644 --- a/gnu/system/file-systems.scm +++ b/gnu/system/file-systems.scm @@ -25,8 +25,7 @@ #:re-export (uuid ;backward compatibility string->uuid uuid->string) - #:export (<file-system> - file-system + #:export (file-system file-system? file-system-device file-system-title