From 0e8c8fd1a490a6eec4b80aa7651c789b097d4b4b Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Sat, 25 Jan 2025 15:24:08 +0900
Subject: [PATCH] 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
---
 gnu/packages/disk.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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