guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

03/03: gnu: cmake-minimal: Remove some documentation.


From: guix-commits
Subject: 03/03: gnu: cmake-minimal: Remove some documentation.
Date: Thu, 19 Nov 2020 11:53:17 -0500 (EST)

efraim pushed a commit to branch core-updates
in repository guix.

commit f6dbca83bf21b160bcd44d165a683318f6ba8d12
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Thu Nov 19 18:45:42 2020 +0200

    gnu: cmake-minimal: Remove some documentation.
    
    These files are still available in the user-facing cmake package.
    
    * gnu/packages/cmake.scm (cmake-minimal)[arguments]: Add phase to remove
    help documentation.
---
 gnu/packages/cmake.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/gnu/packages/cmake.scm b/gnu/packages/cmake.scm
index 5eef3c8..7e679db 100644
--- a/gnu/packages/cmake.scm
+++ b/gnu/packages/cmake.scm
@@ -273,6 +273,15 @@ and workspaces that can be used in the compiler 
environment of your choice.")
        #:phases
        (modify-phases %standard-phases
          ,@%common-build-phases
+         (add-after 'install 'delete-help-documentation
+           (lambda* (#:key outputs #:allow-other-keys)
+             (delete-file-recursively
+               (string-append (assoc-ref outputs "out")
+                              "/share/cmake-"
+                              ,(version-major+minor
+                                 (package-version cmake-bootstrap))
+                              "/Help"))
+             #t))
          (replace 'check
            (lambda* (#:key tests? parallel-tests? #:allow-other-keys)
              (let ((skipped-tests (list ,@%common-disabled-tests
@@ -317,6 +326,7 @@ and workspaces that can be used in the compiler environment 
of your choice.")
                  ,flags))
        ((#:phases phases)
         `(modify-phases ,phases
+           (delete 'delete-help-documentation)
            (add-after 'install 'move-html-doc
              (lambda* (#:key outputs #:allow-other-keys)
                (let ((out (assoc-ref outputs "out"))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]