mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

file-systems: Do not export <file-system>.

Browse source 
* gnu/system/file-systems.scm (<file-system>): Do not export.
* gnu/system.scm (operating-system-root-file-system): Use an accessor
instead of 'match'.
This commit is contained in:
Ludovic Courtès 2018-05-18 10:11:17 +02:00
parent ce9e684b83
commit a48d345041
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gnu/system.scm
View file

@ -842,9 +842,8 @@ (define* (operating-system-profile os #:key container?)
(define (operating-system-root-file-system os) (define (operating-system-root-file-system os)
"Return the root file system of OS." "Return the root file system of OS."
(find (match-lambda (find (lambda (fs)
(($ <file-system> device title "/") #t) (string=? "/" (file-system-mount-point fs)))
(x #f))
(operating-system-file-systems os))) (operating-system-file-systems os)))
(define (operating-system-initrd-file os) (define (operating-system-initrd-file os)

3
gnu/system/file-systems.scm
View file

@ -25,8 +25,7 @@ (define-module (gnu system file-systems)
#:re-export (uuid ;backward compatibility #:re-export (uuid ;backward compatibility
string->uuid string->uuid
uuid->string) uuid->string)
#:export (<file-system> #:export (file-system
file-system
file-system? file-system?
file-system-device file-system-device
file-system-title file-system-title