02/04: packages: Remove support for PACKAGE-VERSION deprecated syntax.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit e30c2be10da8929e42aafc7770257e84de49ffbb
Author: Ludovic Courtès <address@hidden>
Date:   Mon May 1 15:45:41 2017 +0200

    packages: Remove support for PACKAGE-VERSION deprecated syntax.
    
    This syntax had been deprecated since 2016-02-28.
    
    * gnu/packages.scm (%find-package): Remove #:fallback? parameter and 
handling.
    * tests/guix-build.sh: Remove test for "time-1.7" syntax.
    * doc/guix.texi (Invoking guix lint): Update 'guix lint' output in example.
---
 doc/guix.texi       |  6 +++---
 gnu/packages.scm    | 17 ++---------------
 tests/guix-build.sh |  1 -
 3 files changed, 5 insertions(+), 19 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index 9f63413..9b2fe3f 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -16281,9 +16281,9 @@ distribution:
 
 @smallexample
 $ guix lint -c cve
-gnu/packages/base.scm:652:2: glibc-2.21: probably vulnerable to CVE-2015-1781, 
CVE-2015-7547
-gnu/packages/gcc.scm:334:2: gcc-4.9.3: probably vulnerable to CVE-2015-5276
-gnu/packages/image.scm:312:2: openjpeg-2.1.0: probably vulnerable to 
CVE-2016-1923, CVE-2016-1924
+gnu/packages/base.scm:652:2: glibc@@2.21: probably vulnerable to 
CVE-2015-1781, CVE-2015-7547
+gnu/packages/gcc.scm:334:2: gcc@@4.9.3: probably vulnerable to CVE-2015-5276
+gnu/packages/image.scm:312:2: openjpeg@@2.1.0: probably vulnerable to 
CVE-2016-1923, CVE-2016-1924
 @dots{}
 @end smallexample
 
diff --git a/gnu/packages.scm b/gnu/packages.scm
index 92bab72..bec8163 100644
--- a/gnu/packages.scm
+++ b/gnu/packages.scm
@@ -306,7 +306,7 @@ return its return value."
 ;;; Package specification.
 ;;;
 
-(define* (%find-package spec name version #:key fallback?)
+(define* (%find-package spec name version)
   (match (find-best-packages-by-name name version)
     ((pkg . pkg*)
      (unless (null? pkg*)
@@ -314,10 +314,6 @@ return its return value."
        (warning (_ "choosing address@hidden from ~a~%")
                 (package-name pkg) (package-version pkg)
                 (location->string (package-location pkg))))
-     (when fallback?
-       (warning (_ "deprecated NAME-VERSION syntax; \
-use address@hidden instead~%")))
-
      (match (package-superseded pkg)
        ((? package? new)
         (info (_ "package '~a' has been superseded by '~a'~%")
@@ -328,16 +324,7 @@ use address@hidden instead~%")))
     (x
      (if version
          (leave (_ "~A: package not found for version ~a~%") name version)
-         (if (not fallback?)
-             ;; XXX: Fallback to the older specification style with an hyphen
-             ;; between NAME and VERSION, for backward compatibility.
-             (call-with-values
-                 (lambda ()
-                   (hyphen-separated-name->name+version name))
-               (cut %find-package spec <> <> #:fallback? #t))
-
-             ;; The fallback case didn't find anything either, so bail out.
-             (leave (_ "~A: unknown package~%") name))))))
+         (leave (_ "~A: unknown package~%") name)))))
 
 (define (specification->package spec)
   "Return a package matching SPEC.  SPEC may be a package name, or a package
diff --git a/tests/guix-build.sh b/tests/guix-build.sh
index 9494e73..880a582 100644
--- a/tests/guix-build.sh
+++ b/tests/guix-build.sh
@@ -185,7 +185,6 @@ test "`guix build superseded -d`" = "`guix build bar -d`"
 # Parsing package names and versions.
 guix build -n time             # PASS
 guix build -n address@hidden           # PASS, version found
-guix build -n time-1.7         # PASS, deprecated version syntax
 if guix build -n address@hidden;       # FAIL, version not found
 then false; else true; fi
 if guix build -n something-that-will-never-exist; # FAIL