[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
54/68: file-systems: Add read-luks-partition-uuid.
From: |
guix-commits |
Subject: |
54/68: file-systems: Add read-luks-partition-uuid. |
Date: |
Thu, 17 Jan 2019 08:05:20 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit 8ae7044f1d6a8c6a8a91ae6c032030e1affc9772
Author: Mathieu Othacehe <address@hidden>
Date: Sat Dec 8 23:32:23 2018 +0900
file-systems: Add read-luks-partition-uuid.
Add a specific procedure to read luks partition uuid.
* gnu/build/file-systems.scm (luks-partition-field-reader): New procedure
...
(luks-partition-uuid-predicate): ... used here,
(read-luks-partition-uuid): new exported procedure.
---
gnu/build/file-systems.scm | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm
index ee8e814..c468144 100644
--- a/gnu/build/file-systems.scm
+++ b/gnu/build/file-systems.scm
@@ -44,6 +44,7 @@
read-partition-label
read-partition-uuid
+ read-luks-partition-uuid
bind-mount
@@ -438,6 +439,12 @@ partition field reader that returned a value."
(define read-partition-uuid
(cut read-partition-field <> %partition-uuid-readers))
+(define luks-partition-field-reader
+ (partition-field-reader read-luks-header luks-header-uuid))
+
+(define read-luks-partition-uuid
+ (cut read-partition-field <> (list luks-partition-field-reader)))
+
(define (partition-predicate reader =)
"Return a predicate that returns true if the FIELD of partition header that
was READ is = to the given value."
@@ -454,9 +461,7 @@ was READ is = to the given value."
(partition-predicate read-partition-uuid uuid=?))
(define luks-partition-uuid-predicate
- (partition-predicate
- (partition-field-reader read-luks-header luks-header-uuid)
- uuid=?))
+ (partition-predicate luks-partition-field-reader uuid=?))
(define (find-partition predicate)
"Return the first partition found that matches PREDICATE, or #f if none
- branch master updated (073f5f2 -> 8cca59e), guix-commits, 2019/01/17
- 23/68: installer: Add configuration formatter., guix-commits, 2019/01/17
- 29/68: installer: Fix ethernet connection., guix-commits, 2019/01/17
- 24/68: installer: Do not ask for keyboard model., guix-commits, 2019/01/17
- 38/68: installer: locale: Make clear that the point is to select a glibc locale., guix-commits, 2019/01/17
- 37/68: installer: Reorder partitionment step., guix-commits, 2019/01/17
- 39/68: installer: locale: Set English as the default language., guix-commits, 2019/01/17
- 36/68: installer: Fix compute calls., guix-commits, 2019/01/17
- 40/68: installer: Turn "Cancel" buttons into "Exit" buttons., guix-commits, 2019/01/17
- 41/68: installer: keymap: Do not fail on non-kmscon terminals., guix-commits, 2019/01/17
- 54/68: file-systems: Add read-luks-partition-uuid.,
guix-commits <=
- 60/68: installer: welcome: Put "Graphical installer" ahead., guix-commits, 2019/01/17
- 45/68: installer: Make sure every sentence is dot terminated., guix-commits, 2019/01/17
- 42/68: installer: keymap: Fix keymap selection of layouts with not variant., guix-commits, 2019/01/17
- 46/68: installer: Make exit button optional for run-file-textbox-page., guix-commits, 2019/01/17
- 48/68: installer: partition: Precise when using Manual/Guided partionment., guix-commits, 2019/01/17
- 61/68: installer: Remove debug popup., guix-commits, 2019/01/17
- 56/68: installer: Various renamings., guix-commits, 2019/01/17
- 52/68: installer: partionment: Add encryption support., guix-commits, 2019/01/17
- 27/68: installer: Add new pages., guix-commits, 2019/01/17
- 57/68: installer: Various renamins follow-up., guix-commits, 2019/01/17