02/02: gnu: python-scikit-learn: Make gzip timestamps writable.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 71804546b182b8300334df6fb23d207d5e5ba61c
Author: Brian Leung <address@hidden>
Date:   Tue Jun 25 20:50:54 2019 +0200

    gnu: python-scikit-learn: Make gzip timestamps writable.
    
    * gnu/packages/machine-learning.scm (python-scikit-learn)
    [arguments]: Add custom phase to make gzip timestamps writable.
    
    Signed-off-by: Efraim Flashner <address@hidden>
---
 gnu/packages/machine-learning.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/machine-learning.scm 
b/gnu/packages/machine-learning.scm
index 2dc7dc8..dd5ee1e 100644
--- a/gnu/packages/machine-learning.scm
+++ b/gnu/packages/machine-learning.scm
@@ -821,8 +821,14 @@ computing environments.")
              (setenv "HOME" "/tmp")
 
              (invoke "pytest" "sklearn" "-m" "not network")))
-         ;; FIXME: This fails with permission denied
-         (delete 'reset-gzip-timestamps))))
+         (add-before 'reset-gzip-timestamps 'make-files-writable
+           (lambda* (#:key outputs #:allow-other-keys)
+             ;; Make sure .gz files are writable so that the
+             ;; 'reset-gzip-timestamps' phase can do its work.
+             (let ((out (assoc-ref outputs "out")))
+               (for-each make-file-writable
+                         (find-files out "\\.gz$"))
+               #t))))))
     (inputs
      `(("openblas" ,openblas)))
     (native-inputs