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

* guix-build.in (derivations-from-package-expressions): Use
  `location->string'.
This commit is contained in:
Ludovic Courtès 2012-11-19 23:41:17 +01:00
parent d9d0536340
commit ef1ee6b221
1 changed files with 2 additions and 3 deletions

View File

@ -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))))