guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

05/06: channels: Remove unneeded 'version' field of <channel-metadata>.


From: guix-commits
Subject: 05/06: channels: Remove unneeded 'version' field of <channel-metadata>.
Date: Fri, 19 Jul 2019 05:53:56 -0400 (EDT)

civodul pushed a commit to branch master
in repository guix.

commit 5d9daa85b0b8b7145d53768e673fd26ff31b0666
Author: Ludovic Court├Ęs <address@hidden>
Date:   Wed Jul 17 00:24:56 2019 +0200

    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.
---
 guix/channels.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/guix/channels.scm b/guix/channels.scm
index e92148a..87ad729 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 '()))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]