diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-07-17 00:24:56 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-07-19 11:53:47 +0200 |
| commit | 5d9daa85b0b8b7145d53768e673fd26ff31b0666 (patch) | |
| tree | 2d81c118b61434fa30922f0dc84f38f612237dcc /guix/channels.scm | |
| parent | 45b903323e0fecb7947926d2c14103d47fea624a (diff) | |
| download | patches-5d9daa85b0b8b7145d53768e673fd26ff31b0666.tar patches-5d9daa85b0b8b7145d53768e673fd26ff31b0666.tar.gz | |
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.
Diffstat (limited to 'guix/channels.scm')
| -rw-r--r-- | guix/channels.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/guix/channels.scm b/guix/channels.scm index e92148abf2..87ad729a70 100644 --- a/guix/channels.scm +++ b/guix/channels.scm @@ -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 '())) |