ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system/guile: Expose #:scheme-file-regexp.

Browse source 
* guix/build-system/guile.scm (%scheme-file-regexp): New variable.
  (guile-build): Accept #:scheme-file-regexp and pass it on to builder.
This commit is contained in:
Alex Sassmannshausen 2020-05-16 15:32:45 +02:00
parent 14950b83b0
commit 70e33ec795
No known key found for this signature in database
GPG key ID: 8BC4F4476E8A8E00
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/build-system/guile.scm
View file

@ -29,6 +29,10 @@ (define-module (guix build-system guile)
#:export (%guile-build-system-modules #:export (%guile-build-system-modules
guile-build-system)) guile-build-system))
(define %scheme-file-regexp
;; Regexp to match Scheme files.
"\\.(scm|sls)$")
(define %guile-build-system-modules (define %guile-build-system-modules
;; Build-side modules imported by default. ;; Build-side modules imported by default.
`((guix build guile-build-system) `((guix build guile-build-system)
@ -80,6 +84,7 @@ (define* (guile-build store name inputs
(system (%current-system)) (system (%current-system))
(source-directory ".") (source-directory ".")
not-compiled-file-regexp not-compiled-file-regexp
(scheme-file-regexp %scheme-file-regexp)
(compile-flags %compile-flags) (compile-flags %compile-flags)
(imported-modules %guile-build-system-modules) (imported-modules %guile-build-system-modules)
(modules '((guix build guile-build-system) (modules '((guix build guile-build-system)
@ -97,6 +102,7 @@ (define builder
(source (source
source)) source))
#:source-directory ,source-directory #:source-directory ,source-directory
#:scheme-file-regexp ,scheme-file-regexp
#:not-compiled-file-regexp ,not-compiled-file-regexp #:not-compiled-file-regexp ,not-compiled-file-regexp
#:compile-flags ,compile-flags #:compile-flags ,compile-flags
#:phases ,phases #:phases ,phases