diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-10-04 21:34:09 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-10-05 12:09:17 +0200 |
| commit | aed1f1b049f6e7ef9f2f2db58bdca6cd3effe94b (patch) | |
| tree | ee6ee785d2113ef13e593459fdbe1efd925181c7 /gnu/build/file-systems.scm | |
| parent | 67a08f1809c5a67dfb862ccdc3dc4e13ae35dcbf (diff) | |
| download | guix-aed1f1b049f6e7ef9f2f2db58bdca6cd3effe94b.tar.gz | |
uuid: Add 'uuid=?' and use it.
* gnu/system/uuid.scm (uuid=?): New procedure.
* tests/uuid.scm ("uuid=?"): New test.
* gnu/build/file-systems.scm (partition-uuid-predicate)
(luks-partition-uuid-predicate): Use it instead of 'bytevector=?'.
Diffstat (limited to 'gnu/build/file-systems.scm')
| -rw-r--r-- | gnu/build/file-systems.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm index 32885f1d2e..140bcb414b 100644 --- a/gnu/build/file-systems.scm +++ b/gnu/build/file-systems.scm @@ -415,12 +415,12 @@ was READ is = to the given value." (partition-predicate read-partition-label string=?)) (define partition-uuid-predicate - (partition-predicate read-partition-uuid bytevector=?)) + (partition-predicate read-partition-uuid uuid=?)) (define luks-partition-uuid-predicate (partition-predicate (partition-field-reader read-luks-header luks-header-uuid) - bytevector=?)) + uuid=?)) (define (find-partition predicate) "Return the first partition found that matches PREDICATE, or #f if none |