From 983abd2cf9bd419eef6b8b45d36722f1cd683b25 Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <m.othacehe@gmail.com>
Date: Wed, 5 Dec 2018 14:16:36 +0900
Subject: [PATCH] file-systems: Export read-partition-label and
 read-partition-uuid.

* gnu/build/file-systems.scm (read-partition-label): Export it,
(read-partition-uuid): ditto.
---
 gnu/build/file-systems.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm
index e3369d8521..ee8e8146b2 100644
--- a/gnu/build/file-systems.scm
+++ b/gnu/build/file-systems.scm
@@ -42,6 +42,9 @@ (define-module (gnu build file-systems)
             find-partition-by-luks-uuid
             canonicalize-device-spec
 
+            read-partition-label
+            read-partition-uuid
+
             bind-mount
 
             mount-flags->bit-mask