summaryrefslogtreecommitdiff
path: root/guix/import
diff options
context:
space:
mode:
authorEric Bavier <bavier@member.fsf.org>2016-03-22 22:44:51 -0500
committerEric Bavier <bavier@member.fsf.org>2016-03-30 23:19:24 -0500
commit42efe27a30b1f0981b69336089b42afa3537fcc7 (patch)
treeaec54b19cf802c8173c12b0433d402afff2c6005 /guix/import
parent2ae9c63f159c883f894d20cdcb222e96c3fa1802 (diff)
downloadgnu-guix-42efe27a30b1f0981b69336089b42afa3537fcc7.tar
gnu-guix-42efe27a30b1f0981b69336089b42afa3537fcc7.tar.gz
import: Add Hackage updater.
* guix/import/hackage.scm (guix-package->hackage-name, hackage-package?) (latest-release): New procedures. (%hackage-updater): New variable. * guix/scripts/refresh.scm (%updaters): Add it. * doc/guix.texi (Invoking guix refresh): Mention it.
Diffstat (limited to 'guix/import')
-rw-r--r--guix/import/hackage.scm64
1 files changed, 61 insertions, 3 deletions
diff --git a/guix/import/hackage.scm b/guix/import/hackage.scm
index 4f14df4d61..640ead24f3 100644
--- a/guix/import/hackage.scm
+++ b/guix/import/hackage.scm
@@ -19,20 +19,25 @@
(define-module (guix import hackage)
#:use-module (ice-9 match)
+ #:use-module (ice-9 regex)
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-11)
#:use-module (srfi srfi-1)
- #:use-module ((guix download) #:select (download-to-store))
+ #:use-module (gnu packages)
+ #:use-module ((guix download) #:select (download-to-store url-fetch))
#:use-module ((guix utils) #:select (package-name->name+version
canonical-newline-port))
- #:use-module (guix import utils)
#:use-module (guix http-client)
+ #:use-module ((guix import utils) #:select (factorize-uri))
#:use-module (guix import cabal)
#:use-module (guix store)
#:use-module (guix hash)
#:use-module (guix base32)
+ #:use-module (guix upstream)
+ #:use-module (guix packages)
#:use-module ((guix utils) #:select (call-with-temporary-output-file))
- #:export (hackage->guix-package))
+ #:export (hackage->guix-package
+ %hackage-updater))
(define ghc-standard-libraries
;; List of libraries distributed with ghc (7.10.2). We include GHC itself as
@@ -89,6 +94,17 @@ version is returned."
(string-downcase name)
(string-append package-name-prefix (string-downcase name))))
+(define guix-package->hackage-name
+ (let ((uri-rx (make-regexp "https?://hackage.haskell.org/package/([^/]+)/.*"))
+ (name-rx (make-regexp "(.*)-[0-9\\.]+")))
+ (lambda (package)
+ "Given a Guix package name, return the corresponding Hackage name."
+ (let* ((source-url (and=> (package-source package) origin-uri))
+ (name (match:substring (regexp-exec uri-rx source-url) 1)))
+ (match (regexp-exec name-rx name)
+ (#f name)
+ (m (match:substring m 1)))))))
+
(define (hackage-fetch name-version)
"Return the Cabal file for the package NAME-VERSION, or #f on failure. If
the version part is omitted from the package name, then return the latest
@@ -236,4 +252,46 @@ respectively."
include-test-dependencies?)
(cut eval-cabal <> cabal-environment)))))
+(define (hackage-package? package)
+ "Return #t if PACKAGE is a Haskell package from Hackage."
+
+ (define haskell-url?
+ (let ((hackage-rx (make-regexp "https?://hackage.haskell.org")))
+ (lambda (url)
+ (regexp-exec hackage-rx url))))
+
+ (let ((source-url (and=> (package-source package) origin-uri))
+ (fetch-method (and=> (package-source package) origin-method)))
+ (and (eq? fetch-method url-fetch)
+ (match source-url
+ ((? string?)
+ (haskell-url? source-url))
+ ((source-url ...)
+ (any haskell-url? source-url))))))
+
+(define (latest-release guix-package)
+ "Return an <upstream-source> for the latest release of GUIX-PACKAGE."
+ (let* ((hackage-name (guix-package->hackage-name
+ (specification->package guix-package)))
+ (cabal-meta (hackage-fetch hackage-name)))
+ (match cabal-meta
+ (#f
+ (format (current-error-port)
+ "warning: failed to parse ~a~%"
+ (hackage-cabal-url hackage-name))
+ #f)
+ ((_ *** ("version" (version)))
+ (let ((url (hackage-source-url hackage-name version)))
+ (upstream-source
+ (package guix-package)
+ (version version)
+ (urls (list url))))))))
+
+(define %hackage-updater
+ (upstream-updater
+ (name 'hackage)
+ (description "Updater for Hackage packages")
+ (pred hackage-package?)
+ (latest latest-release)))
+
;;; cabal.scm ends here