diff options
| author | Mark H Weaver <mhw@netris.org> | 2014-04-02 12:02:41 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2014-04-02 15:31:12 -0400 |
| commit | 835281829a1044481067ffde590d20716c654d31 (patch) | |
| tree | 1dc244b428b5518c0a43530803095a1659e43e83 | |
| parent | fb9c3acc6c29b51cd531ea8884ad12ef33a4e734 (diff) | |
| download | patches-835281829a1044481067ffde590d20716c654d31.tar patches-835281829a1044481067ffde590d20716c654d31.tar.gz | |
gnu: sqlite: Compute source URL from version number.
* gnu/packages/sqlite.scm (sqlite): Compute the numeric-version from the
traditional version string, and use it to compute the source URL.
| -rw-r--r-- | gnu/packages/sqlite.scm | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/gnu/packages/sqlite.scm b/gnu/packages/sqlite.scm index f688e137d5..2b767d78fc 100644 --- a/gnu/packages/sqlite.scm +++ b/gnu/packages/sqlite.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com> +;;; Copyright © 2014 Mark H Weaver <mhw@netris.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -21,7 +22,9 @@ #:use-module (guix packages) #:use-module (guix download) #:use-module (guix build-system gnu) - #:use-module (gnu packages)) + #:use-module (gnu packages) + #:use-module (srfi srfi-26) + #:use-module (ice-9 match)) (define-public sqlite (package @@ -32,9 +35,18 @@ ;; TODO: Download from sqlite.org once this bug : ;; http://lists.gnu.org/archive/html/bug-guile/2013-01/msg00027.html ;; has been fixed. - (uri (string-append - "mirror://sourceforge/sqlite.mirror/SQLite%20" - version "/sqlite-autoconf-3080200.tar.gz")) + (uri (let ((numeric-version + (match (string-split version #\.) + ((first-digit other-digits ...) + (string-append first-digit + (string-pad-right + (string-concatenate + (map (cut string-pad <> 2 #\0) + other-digits)) + 6 #\0)))))) + (string-append + "mirror://sourceforge/sqlite.mirror/SQLite%20" version + "/sqlite-autoconf-" numeric-version ".tar.gz"))) (sha256 (base32 "14pg9zlwbwsj5w7f3qr25d3nniyv82gmczwlvpj0i0ic1431v1d0")))) |