amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system: haskell: Add #:cabal-revision argument.

Browse source 
Add a #:cabal-revision argument for specifying which Cabal file revision
from Hackage should be used.

* guix/build-system/haskell.scm (source-url->revision-url): New function.
(lower): Accept a cabal-revision keyword argument, convert it to an
origin record, and add it to the resulting bag's host-inputs.
(haskell-build): Pass the cabal-revision input to the builder as an
argument.
* guix/build/haskell-build-system.scm (patch-cabal-file): New phase.
(%standard-phases): Add it.
This commit is contained in:
Timothy Sample 2018-08-30 22:08:59 -04:00 • committed by Ricardo Wurmus
parent f54f04756f
commit bb6419f374
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
2 changed files with 43 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
guix/build/haskell-build-system.scm
View file

@ -27,6 +27,7 @@
#:use-module (ice-9 regex)
#:use-module (ice-9 match)
#:use-module (ice-9 vlist)
#:use-module (ice-9 ftw)
#:export (%standard-phases
haskell-build))
@ -265,8 +266,19 @@ given Haskell package."
(run-setuphs "haddock" haddock-flags)
#t))
(define* (patch-cabal-file #:key cabal-revision #:allow-other-keys)
(when cabal-revision
;; Cabal requires there to be a single file with the suffix ".cabal".
(match (scandir "." (cut string-suffix? ".cabal" <>))
((original)
(format #t "replacing ~s with ~s~%" original cabal-revision)
(copy-file cabal-revision original))
(_ (error "Could not find a Cabal file to patch."))))
#t)
(define %standard-phases
(modify-phases gnu:%standard-phases
(add-after 'unpack 'patch-cabal-file patch-cabal-file)
(delete 'bootstrap)
(add-before 'configure 'setup-compiler setup-compiler)
(add-before 'install 'haddock haddock)