config/guix/manifest-to-manifest: Sort entries
parent
aad43bc031
commit
115b829046
|
@ -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.")))
|
||||
|
|
Loading…
Reference in New Issue