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

installer: Log provenance data.

Browse source 
* gnu/installer.scm (provenance-sexp): New procedure.
(installer-program)[installer-builder]: Add 'installer-log-line' call.
This commit is contained in:
Ludovic Courtès 2022-12-05 14:57:15 +01:00
parent 29a09fa5e4
commit 241772d5c0
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 25 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/installer.scm
View file

@ -27,6 +27,8 @@ (define-module (gnu installer)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix ui) #:use-module (guix ui)
#:use-module ((guix self) #:select (make-config.scm)) #:use-module ((guix self) #:select (make-config.scm))
#:use-module (guix describe)
#:use-module (guix channels)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (gnu installer utils) #:use-module (gnu installer utils)
@ -52,6 +54,7 @@ (define-module (gnu installer)
#:use-module (gnu system locale) #:use-module (gnu system locale)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (web uri)
#:export (installer-program)) #:export (installer-program))
(define module-to-import? (define module-to-import?
@ -315,6 +318,25 @@ (define (installer-steps)
((installer-final-page current-installer) ((installer-final-page current-installer)
result prev-steps)))))))) result prev-steps))))))))
(define (provenance-sexp)
"Return an sexp representing the currently-used channels, for logging
purposes."
(match (match (current-channels)
(() (and=> (repository->guix-channel (dirname (current-filename)))
list))
(channels channels))
(#f
(warning (G_ "cannot determine installer provenance~%"))
'unknown)
((channels ...)
(map (lambda (channel)
(let* ((uri (string->uri (channel-url channel)))
(url (if (or (not uri) (eq? 'file (uri-scheme uri)))
"local checkout"
(channel-url channel))))
`(channel ,(channel-name channel) ,url ,(channel-commit channel))))
channels))))
(define (installer-program) (define (installer-program)
"Return a file-like object that runs the given INSTALLER." "Return a file-like object that runs the given INSTALLER."
(define init-gettext (define init-gettext
@ -429,6 +451,9 @@ (define installer-builder
(define current-installer newt-installer) (define current-installer newt-installer)
(define steps (#$steps current-installer)) (define steps (#$steps current-installer))
(installer-log-line "installer provenance: ~s"
'#$(provenance-sexp))
(dynamic-wind (dynamic-wind
(installer-init current-installer) (installer-init current-installer)
(lambda () (lambda ()