Browse Source

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'.
version-0.15.0
Ludovic Courtès 4 years ago
parent
commit
a48d345041
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 5
      gnu/system.scm
  2. 3
      gnu/system/file-systems.scm

5
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)

3
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

Loading…
Cancel
Save