Subject: [PATCH] file-systems: Gracefully handle EMEDIUMTYPE in 'read-partitions'.

From: Marius Bakke <[email-masked]>
Date: Mon, 31 Oct 2022 11:27:21 +0100

* gnu/build/file-systems.scm (ENOENT-safe): Catch EMEDIUMTYPE and warn.
---
 gnu/build/file-systems.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm
index 0d7ff99f17..15b8f73312 100644
--- a/gnu/build/file-systems.scm
+++ b/gnu/build/file-systems.scm
@@ -899,6 +899,10 @@ (define (ENOENT-safe proc)
                  (format (current-error-port)
                          "warning: failed to read from device '~a'~%" device)
                  #f)
+                ((= EMEDIUMTYPE errno)            ;inaccessible, like DRBD secondaries
+                 (format (current-error-port)
+                         "warning: failed to open device '~a'~%" device)
+                 #f)
                 (else
                  (apply throw args))))))))
 
-- 
2.38.0