tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-26 19:11:46 +02:00
Code Activity

system: Add helper file-system-mount-point-predicate.

Browse Source 
* gnu/system/file-systems.scm (file-system-mount-point-predicate): Add
it.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Josselin Poiret
2022-02-06 22:20:44 +01:00
committed by Ludovic Courtès
parent 7f6dd3be3d
commit 0055a803e2
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/system/file-systems.scm
+7
View File
@@ -60,6 +60,7 @@
file-system-location
file-system-type-predicate
file-system-mount-point-predicate
btrfs-subvolume?
btrfs-store-subvolume-file-name
@@ -671,6 +672,12 @@ system has the given TYPE."
(lambda (fs)
(string=? (file-system-type fs) type)))
(define (file-system-mount-point-predicate mount-point)
"Return a predicate that, when passed a file system, returns #t if that file
system has the given MOUNT-POINT."
(lambda (fs)
(string=? (file-system-mount-point fs) mount-point)))
;;;
;;; Btrfs specific helpers.