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