nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

import: hackage: Factorize url synthesis. 

* guix/import/hackage.scm (hackage-source-url, hackage-cabal-url): New
  procedures.
  (hackage-fetch, hackage-module->sexp): Use them.
This commit is contained in:
Eric Bavier 2016-03-22 22:40:38 -05:00
parent 4827b36d1f
commit f9ea74ad04
1 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
guix/import/hackage.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -65,6 +66,22 @@
(define package-name-prefix "ghc-") (define package-name-prefix "ghc-")
(define (hackage-source-url name version)
"Given a Hackage package NAME and VERSION, return a url to the source
tarball."
(string-append "http://hackage.haskell.org/package/" name
"/" name "-" version ".tar.gz"))
(define* (hackage-cabal-url name #:optional version)
"Given a Hackage package NAME and VERSION, return a url to the corresponding
.cabal file on Hackage. If VERSION is #f or missing, the url for the latest
version is returned."
(if version
(string-append "http://hackage.haskell.org/package/"
name "-" version "/" name ".cabal")
(string-append "http://hackage.haskell.org/package/"
name "/" name ".cabal")))
(define (hackage-name->package-name name) (define (hackage-name->package-name name)
"Given the NAME of a Cabal package, return the corresponding Guix name." "Given the NAME of a Cabal package, return the corresponding Guix name."
(if (string-prefix? package-name-prefix name) (if (string-prefix? package-name-prefix name)
@ -76,12 +93,7 @@
the version part is omitted from the package name, then return the latest the version part is omitted from the package name, then return the latest
version." version."
(let*-values (((name version) (package-name->name+version name-version)) (let*-values (((name version) (package-name->name+version name-version))
((url) ((url) (hackage-cabal-url name version)))
(if version
(string-append "http://hackage.haskell.org/package/"
name "-" version "/" name ".cabal")
(string-append "http://hackage.haskell.org/package/"
name "/" name ".cabal"))))
(call-with-temporary-output-file (call-with-temporary-output-file
(lambda (temp port) (lambda (temp port)
(and (url-fetch url temp) (and (url-fetch url temp)
@ -154,8 +166,7 @@ representation of a Cabal file as produced by 'read-cabal'."
(cabal-package-version cabal)) (cabal-package-version cabal))
(define source-url (define source-url
(string-append "http://hackage.haskell.org/package/" name (hackage-source-url name version))
"/" name "-" version ".tar.gz"))
(define dependencies (define dependencies
(let ((names (let ((names