summaryrefslogtreecommitdiff
path: root/gnu/system
diff options
context:
space:
mode:
authorJosselin Poiret <dev@jpoiret.xyz>2022-02-06 22:20:44 +0100
committerLudovic Courtès <ludo@gnu.org>2022-02-15 10:14:14 +0100
commit0055a803e204b8df98469413c6fbc8a8f730842c (patch)
treea903ee7d892ff6931adfdf84737118babf56cc9a /gnu/system
parent7f6dd3be3dceb0fda15fd02c9165614b2626813e (diff)
system: Add helper file-system-mount-point-predicate.
* gnu/system/file-systems.scm (file-system-mount-point-predicate): Add it. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'gnu/system')
-rw-r--r--gnu/system/file-systems.scm7
1 files changed, 7 insertions, 0 deletions
diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm
index e1d1fb72cc..437f8da898 100644
--- a/gnu/system/file-systems.scm
+++ b/gnu/system/file-systems.scm
@@ -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.