aboutsummaryrefslogtreecommitdiff
path: root/guix-build.in
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-11-19 23:41:17 +0100
committerLudovic Courtès <ludo@gnu.org>2012-11-19 23:41:17 +0100
commitef1ee6b2213d0a9a6ead79c8c9aba1d94e1e42fa (patch)
tree44941267cfae26039d007cc19fe4e29dc09a0fa1 /guix-build.in
parentd9d0536340b4bc310968267e70279544e5aa9b5e (diff)
downloadguix-ef1ee6b2213d0a9a6ead79c8c9aba1d94e1e42fa.tar
guix-ef1ee6b2213d0a9a6ead79c8c9aba1d94e1e42fa.tar.gz
guix-build: Use `location->string'.
* guix-build.in (derivations-from-package-expressions): Use `location->string'.
Diffstat (limited to 'guix-build.in')
-rw-r--r--guix-build.in5
1 files changed, 2 insertions, 3 deletions
diff --git a/guix-build.in b/guix-build.in
index 3b1e6c3115..72386ac511 100644
--- a/guix-build.in
+++ b/guix-build.in
@@ -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))))