cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix indentation

Browse source
This commit is contained in:
Christopher Baines 2025-11-13 12:39:31 +00:00
parent 0611684b0d
commit 571ed55c9f
1 changed files with 54 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

107
guix-data-service/web/revision/controller.scm
View file

@ -933,61 +933,62 @@
(define has-replacement? (assq-ref query-parameters 'has_replacement)) (define has-replacement? (assq-ref query-parameters 'has_replacement))
(fibers-let ((metadata (fibers-let
(with-resource-from-pool (connection-pool) conn ((metadata
(select-package-metadata-by-revision-name-and-version (with-resource-from-pool (connection-pool) conn
conn (select-package-metadata-by-revision-name-and-version
commit-hash conn
name commit-hash
version name
locale version
#:replacement? has-replacement?))) locale
(derivations #:replacement? has-replacement?)))
(with-resource-from-pool (connection-pool) conn (derivations
(with-resource-from-pool (connection-pool) conn
(map
(lambda (derivation-details)
(append
derivation-details
(list
(map (map
(lambda (derivation-details) (match-lambda
(append ((name path hash-algorithm hash recursive?)
derivation-details `((name . ,name)
(list (path . ,path)
(map (hash_algorithm . ,hash-algorithm)
(match-lambda (hash . ,hash)
((name path hash-algorithm hash recursive?) (recursive? . ,recursive?)
`((name . ,name) (nars
(path . ,path) . ,(list->vector
(hash_algorithm . ,hash-algorithm) (map (match-lambda
(hash . ,hash) ((hash-algorithm hash size
(recursive? . ,recursive?) urls signatures)
(nars `((hash . ((algorithm . ,hash-algorithm)
. ,(list->vector (value . ,hash)))
(map (match-lambda (size . ,size))))
((hash-algorithm hash size (select-nars-for-output
urls signatures) conn
`((hash . ((algorithm . ,hash-algorithm) path)))))))
(value . ,hash))) (select-derivation-outputs-by-derivation-file-name
(size . ,size))))
(select-nars-for-output
conn
path)))))))
(select-derivation-outputs-by-derivation-file-name
conn
(third derivation-details))))))
(select-derivations-by-revision-name-and-version
conn conn
commit-hash (third derivation-details))))))
name (select-derivations-by-revision-name-and-version
version)))) conn
(git-repositories commit-hash
(with-resource-from-pool (connection-pool) conn name
(git-repositories-containing-commit conn version))))
commit-hash))) (git-repositories
(lint-warnings (with-resource-from-pool (connection-pool) conn
(with-resource-from-pool (connection-pool) conn (git-repositories-containing-commit conn
(select-lint-warnings-by-revision-package-name-and-version commit-hash)))
conn (lint-warnings
commit-hash (with-resource-from-pool (connection-pool) conn
name (select-lint-warnings-by-revision-package-name-and-version
version conn
#:locale locale)))) commit-hash
name
version
#:locale locale))))
(case (most-appropriate-mime-type (case (most-appropriate-mime-type
'(application/json text/html) '(application/json text/html)
mime-types) mime-types)