03/04: file-systems: Do not export <file-system>.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit a48d34504181e2f14cef3a5514d2319e60453a79
Author: Ludovic Courtès <address@hidden>
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