diff options
| author | Josselin Poiret <dev@jpoiret.xyz> | 2022-02-06 22:20:44 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-02-15 10:14:14 +0100 |
| commit | 0055a803e204b8df98469413c6fbc8a8f730842c (patch) | |
| tree | a903ee7d892ff6931adfdf84737118babf56cc9a | |
| parent | 7f6dd3be3dceb0fda15fd02c9165614b2626813e (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>
| -rw-r--r-- | gnu/system/file-systems.scm | 7 |
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. |