~ruther/guix-local: guix-build: Use `location->string'.

ef1ee6b2213d0a9a6ead79c8c9aba1d94e1e42fa — Ludovic Courtès 13 years ago d9d0536

guix-build: Use `location->string'.

* guix-build.in (derivations-from-package-expressions): Use
  `location->string'.

patch browse .tar.gz

1 files changed, 2 insertions(+), 3 deletions(-)

M guix-build.in

M guix-build.in => guix-build.in +2 -3

@@ 57,9 57,8 @@ When SOURCE? is true, return the derivations of the package sources."
                   (loc    (package-location p)))
               (if source
                   (package-source-derivation %store source)
-                  (leave (_ "~a:~a:~a: error: package `~a' has no source~%")
-                         (location-file loc) (location-line loc)
-                         (location-column loc) (package-name p))))
+                  (leave (_ "~a: error: package `~a' has no source~%")
+                         (location->string loc) (package-name p))))
             (package-derivation %store p system))
         (leave (_ "expression `~s' does not evaluate to a package~%")
                exp))))