file-systems: Gracefully handle EMEDIUMTYPE in 'read-partitions'.

* gnu/build/file-systems.scm (ENOENT-safe): Catch EMEDIUMTYPE and warn.
2022-10-31 11:23:43 +01:00 · 2022-10-31 11:23:43 +01:00 · c1261b3a5d
commit c1261b3a5d
parent 706f25f24d
1 changed files with 4 additions and 0 deletions
--- a/gnu/build/file-systems.scm
+++ b/gnu/build/file-systems.scm
@ -899,6 +899,10 @@ caught and lead to a warning and #f as the result."
                 (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))))))))