channels: Remove unneeded 'version' field of <channel-metadata>.
The idea is that 'read-channel-metadata' will take care of converting possibly older versions to the current data type. Thus, storing the version number is unnecessary. * guix/channels.scm (<channel-metadata>)[version]: Remove. (read-channel-metadata, channel-instance-dependencies): Adjust accordingly.
This commit is contained in:
parent
45b903323e
commit
5d9daa85b0
|
@ -108,9 +108,8 @@
|
|||
(checkout channel-instance-checkout))
|
||||
|
||||
(define-record-type <channel-metadata>
|
||||
(channel-metadata version directory dependencies)
|
||||
(channel-metadata directory dependencies)
|
||||
channel-metadata?
|
||||
(version channel-metadata-version)
|
||||
(directory channel-metadata-directory)
|
||||
(dependencies channel-metadata-dependencies))
|
||||
|
||||
|
@ -130,7 +129,6 @@ if valid metadata could not be read from PORT."
|
|||
(let ((directory (and=> (assoc-ref properties 'directory) first))
|
||||
(dependencies (or (assoc-ref properties 'dependencies) '())))
|
||||
(channel-metadata
|
||||
version
|
||||
directory
|
||||
(map (lambda (item)
|
||||
(let ((get (lambda* (key #:optional default)
|
||||
|
@ -180,7 +178,7 @@ file."
|
|||
channel INSTANCE."
|
||||
(match (channel-instance-metadata instance)
|
||||
(#f '())
|
||||
(($ <channel-metadata> version directory dependencies)
|
||||
(($ <channel-metadata> directory dependencies)
|
||||
dependencies)))
|
||||
|
||||
(define* (latest-channel-instances store channels #:optional (previous-channels '()))
|
||||
|
|
Loading…
Reference in New Issue