config/guix/manifest-to-manifest: Sort entries

master
Pierre Neidhardt 2019-01-22 12:54:27 +01:00
parent aad43bc031
commit 115b829046
1 changed files with 9 additions and 8 deletions

View File

@ -6,12 +6,13 @@
((_ where)
(pretty-print
`(specifications->manifest
',(map (lambda (entry)
(let ((out (manifest-entry-output entry)))
(if (string= out "out")
(manifest-entry-name entry)
(format #f "~a:~a"
(manifest-entry-name entry)
(manifest-entry-output entry)))))
(manifest-entries (profile-manifest where))))))
',(sort (map (lambda (entry)
(let ((out (manifest-entry-output entry)))
(if (string= out "out")
(manifest-entry-name entry)
(format #f "~a:~a"
(manifest-entry-name entry)
(manifest-entry-output entry)))))
(manifest-entries (profile-manifest where)))
string<?))))
(_ (error "Please provide the path to a Guix profile.")))