futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

build-system/glib-or-gtk: Support #:disallowed-references.

Browse Source 
* guix/build-system/glib-or-gtk.scm (glib-or-gtk-build): Add
 #:disallowed-references and honor it.
This commit is contained in:
Ludovic Courtès 2019-03-15 17:43:45 +01:00
parent 39c0a3fdb7
commit ee71d44e60
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
guix/build-system/glib-or-gtk.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com> ;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2014 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2014 Federico Beffa <beffa@fbengineering.ch>
;;; ;;;
@ -129,7 +129,8 @@
(system (%current-system)) (system (%current-system))
(imported-modules %glib-or-gtk-build-system-modules) (imported-modules %glib-or-gtk-build-system-modules)
(modules %default-modules) (modules %default-modules)
allowed-references) allowed-references
disallowed-references)
"Build SOURCE with INPUTS. See GNU-BUILD for more details." "Build SOURCE with INPUTS. See GNU-BUILD for more details."
(define canonicalize-reference (define canonicalize-reference
(match-lambda (match-lambda
@ -190,6 +191,10 @@
(and allowed-references (and allowed-references
(map canonicalize-reference (map canonicalize-reference
allowed-references)) allowed-references))
#:disallowed-references
(and disallowed-references
(map canonicalize-reference
disallowed-references))
#:guile-for-build guile-for-build)) #:guile-for-build guile-for-build))
(define glib-or-gtk-build-system (define glib-or-gtk-build-system