01/03: build: file-systems: Add luks to %partition-uuid-readers.

[guix-commits]

mothacehe pushed a commit to branch wip-newt-installer
in repository guix.

commit fa358c557f130f393d8c7400ffa954f75112d09e
Author: Mathieu Othacehe <address@hidden>
Date:   Fri Dec 7 14:03:06 2018 +0900

    build: file-systems: Add luks to %partition-uuid-readers.
    
    * gnu/build/file-systems.scm (%partition-uuid-readers): Add luks reader.
---
 gnu/build/file-systems.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm
index e0ce752..bff2de2 100644
--- a/gnu/build/file-systems.scm
+++ b/gnu/build/file-systems.scm
@@ -430,7 +430,9 @@ partition field reader that returned a value."
         (partition-field-reader read-fat32-superblock
                                 fat32-superblock-uuid)
         (partition-field-reader read-fat16-superblock
-                                fat16-superblock-uuid)))
+                                fat16-superblock-uuid)
+        (partition-field-reader read-luks-header
+                                luks-header-uuid)))
 
 (define read-partition-label
   (cut read-partition-field <> %partition-label-readers))