02/07: gnu: dvdisaster: Remove uninstallation script.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 55bef80580c391677c22fb1eeed14a8bf86a223f
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Nov 7 22:03:39 2021 +0100

    gnu: dvdisaster: Remove uninstallation script.
    
    * gnu/packages/cdrom.scm (dvdisaster)[arguments]: Add a new
    'remove-uninstall-script phase.
---
 gnu/packages/cdrom.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/cdrom.scm b/gnu/packages/cdrom.scm
index 3a7e7b0..717d59f 100644
--- a/gnu/packages/cdrom.scm
+++ b/gnu/packages/cdrom.scm
@@ -465,7 +465,12 @@ or @command{xorrisofs} to create ISO 9660 images.")
                 (find-files "contrib" "dvdisaster[0-9]*\\.png"))
                (mkdir-p (string-append datadir "/pixmaps"))
                (copy-file "contrib/dvdisaster48.xpm"
-                          (string-append datadir 
"/pixmaps/dvdisaster.xpm"))))))))
+                          (string-append datadir "/pixmaps/dvdisaster.xpm")))))
+         (add-after 'install 'remove-uninstall-script
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out")))
+               (delete-file
+                (string-append out "/bin/dvdisaster-uninstall.sh"))))))))
     (home-page "https://dvdisaster.jcea.es/";)
     (synopsis "Error correcting codes for optical media images")
     (description "Optical media (CD,DVD,BD) keep their data only for a