diff options
author | Ludovic Courtès <ludo@gnu.org> | 2021-03-17 15:03:19 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2021-03-17 23:10:19 +0100 |
commit | c81eeabb99f89f2b7bf1417bfbf992ba47af02a5 (patch) | |
tree | ee314352f5a181459239a027dbc738bc3e05122b /guix/import | |
parent | c37f78a9f55874015d10f081be36104bb33a3ae1 (diff) |
import: gnome: Exclude version numbers that do not start with a digit.
Fixes a bug whereby NetworkManager would be updated to version "rc2".
* guix/import/gnome.scm (latest-gnome-release)[even-minor-version?]:
Change catch-all case to return #f when the first part is not a digit.
Diffstat (limited to 'guix/import')
-rw-r--r-- | guix/import/gnome.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/guix/import/gnome.scm b/guix/import/gnome.scm index 436ec88ef9..c0ee1bfa5d 100644 --- a/guix/import/gnome.scm +++ b/guix/import/gnome.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2017, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2017, 2019, 2021 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -64,8 +64,9 @@ not be determined." (match (string-tokenize version %not-dot) (((= string->number major) (= string->number minor) . rest) (and minor (even? minor))) - (_ - #t))) ;cross fingers + (((= string->number major) . _) + ;; It should at last start with a digit. + major))) (define upstream-name ;; Some packages like "NetworkManager" have camel-case names. |