03/03: gnu: ocaml-ctypes: Don't use unstable tarball.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit c8f16c7f7e043bdcfbdffdd09909778adecb9160
Author: Efraim Flashner <address@hidden>
AuthorDate: Tue Jan 28 10:53:42 2020 +0200

    gnu: ocaml-ctypes: Don't use unstable tarball.
    
    * gnu/packages/ocaml.scm (ocaml-ctypes)[source]: Download using git-fetch.
    [arguments]: Add phase to make files writable.
---
 gnu/packages/ocaml.scm | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/ocaml.scm b/gnu/packages/ocaml.scm
index 65d89bc..32b0335 100644
--- a/gnu/packages/ocaml.scm
+++ b/gnu/packages/ocaml.scm
@@ -3254,12 +3254,14 @@ long and size_t whose sizes depend on the host 
platform.")
    (version "0.14.0")
    (home-page "https://github.com/ocamllabs/ocaml-ctypes";)
    (source (origin
-             (method url-fetch)
-             (uri (string-append home-page "/archive/" version ".tar.gz"))
-             (file-name (string-append name "-" version ".tar.gz"))
+             (method git-fetch)
+             (uri (git-reference
+                    (url home-page)
+                    (commit version)))
+             (file-name (git-file-name name version))
              (sha256
               (base32
-               "0zrsd42q2nciyg9375g2kydqax6ay299rhyfgms59qiw7d9ylyp9"))))
+               "1b2q3h63ngf4x9qp65qwapf2dg9q0mcdah6qjm2q0c7v2p5vysv9"))))
    (build-system ocaml-build-system)
    (arguments
     `(#:tests? #f; require an old lwt
@@ -3267,6 +3269,14 @@ long and size_t whose sizes depend on the host 
platform.")
       (list (string-append "INSTALL_HEADERS = $(wildcard 
$($(PROJECT).dir)/*.h)"))
       #:phases
       (modify-phases %standard-phases
+        (add-after 'unpack 'make-writable
+          (lambda _
+            (for-each
+              (lambda (file)
+                (let ((stat (stat file)))
+                  (chmod file (+ #o200 (stat:mode stat)))))
+              (find-files "." "."))
+            #t))
         (delete 'configure))))
    (native-inputs
     `(("pkg-config" ,pkg-config)))