gnu: libblockdev: List unpatched file system plugins/programs.

* gnu/packages/disk.scm (libblockdev) [arguments] <phases>: Output a warning
message for each unpatched program in the patch-plugin-paths phase.

Change-Id: I44fcb1cad339581536f9136147de54ca259719c1

1 files changed, 5 insertions, 1 deletions

diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm
index fd9cb8a45ed..800034624e4 100644
--- a/gnu/packages/disk.scm
+++ b/gnu/packages/disk.scm
@@ -1213,7 +1213,11 @@ to create devices with respective mappings for the ATARAID sets discovered.")
                             (false-if-exception
                              (search-input-file inputs
                                                 (string-append "sbin/" program)))
-                            program)))))))))
+                            (begin
+                              (format (current-warning-port)
+                                      "warning: program ~s left unpatched~%"
+                                      program)
+                              program))))))))))
     (native-inputs
      (list gobject-introspection
            pkg-config