gnu: ocaml: Use a helper function to download from ocaml-forge.

* gnu/packages/ocaml.scm (ocaml-forge-origin): New procedure.
  (lablgtk)[origin]: Use it.

Signed-off-by: David Craven <david@craven.ch>
This commit is contained in:
Julien Lepiller 2016-12-22 20:05:46 +01:00 committed by David Craven
parent e6876cb9dc
commit 56f73eadc0
No known key found for this signature in database
GPG key ID: C5E051C79C0BECDB

View file

@ -50,6 +50,13 @@ (define-module (gnu packages ocaml)
#:use-module (guix svn-download) #:use-module (guix svn-download)
#:use-module (guix utils)) #:use-module (guix utils))
;; A shortcut for files from ocaml forge. Downloaded files are computed from
;; their number, not their name.
(define (ocaml-forge-uri name version file-number)
(string-append "https://forge.ocamlcore.org/frs/download.php/"
(number->string file-number) "/" name "-" version
".tar.gz"))
(define-public ocaml (define-public ocaml
(package (package
(name "ocaml") (name "ocaml")
@ -509,11 +516,9 @@ (define-public lablgtk
(package (package
(name "lablgtk") (name "lablgtk")
(version "2.18.5") (version "2.18.5")
(source (source (origin
(origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://forge.ocamlcore.org/frs/download.php/" (uri (ocaml-forge-uri name version 1627))
"1627/lablgtk-2.18.5.tar.gz"))
(sha256 (sha256
(base32 (base32
"0cyj6sfdvzx8hw7553lhgwc0krlgvlza0ph3dk9gsxy047dm3wib")))) "0cyj6sfdvzx8hw7553lhgwc0krlgvlza0ph3dk9gsxy047dm3wib"))))